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SOQ  USER  GUIDE  UPDATES 
June  1980  Updates  to  SOQ80128 

INTRODUCTION 

This  document  defines  the  changes  made  to  the  SOQ  code  (SOQ80128) 
between  January  and  June  of  1980.  The  changes  either  correct  short¬ 
comings  found  in  the  code  or,  more  usually,  document  the  increased 
capability  being  continually  built  into  the  code.  The  SOQ  code  is 
maintained  as  SOQ80128  June  PL, ID  =  AFLOJRA  as  a  NOS/BE— 1  CDC  update 
format  file. 

UPDATES 

1 .  *ID  FIXZRN 

This  update  redefines  the  coeffiencets  to  be  input  to  the  Zernike 
subroutine.  This  new  convention  is  more  physically  meaningful  in  that, 
at  least  for  lower  orders,  the  coefficients  are  in  waves.  For  example, 
to  impose  one  wave  peak  to  peak  of  defocus  (P^)  on  a  beam,  one  would 
input  P(4)=l .  The  phase  applied  is  now: 

♦  (I,J)  *  £P  *Z  <I,J) 

The  subroutine  affected  is  ZERN.  This  update  does  not  effect  the  rest 
of  the  code. 

2.  *ID  FIXJTR 

This  update  ensures  a  correct  definition  of  DF  in  subroutine  JITRBG 
since  when  JITRBG  is  called  from  subroutine  QUAL,  the  X-coordinate 
array  contains  RX/D  coordinates,  not  the  spatial  coordinates. 

Only  one  line  of  the  code  is  affected  by  this  update. 

3.  *ID  ROTZRN 

Due  to  different  coordinate  system  orientations  for  data,  it  became 
necessary  to  allow  for  this  variation  within  subroutine  ZERN. 

Define  the  data  x  and  y  coordinates  to  be  XROT  and  YROT,  and  the  SOQ 
x  and  y  coordinates  to  be  XIN  and  YIN.  The  rotation  angle  is  then 
defined  to  be  6  (in  radians). 
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COS ROT  =  C0S(6) 

SINROT  =  SlN(e) 

XROT  =  XIN  x  COSROT  +  YIN  x  SINROT 
YROT  =  -XIN  x  SINROT  +  YIN  x  COSROT 

Application  of  Zernike  polynomials  to  and  SOQ  point  located  at 
(XIN,  YIN)  would  then  be  calculated  using  Z(XROT,  YROT).  The  possi¬ 
bility  of  axis  flips  are  also  accounted  for  and  are  flagged  by 
FLIPX  or  FLIPY  not  equal  to  zero.  Namelist  ZERNS  is  modified  to 
include  FLIPX,  FLIPY  and  the  rotation  angle  (in  degrees)  ZTHETA.  No 
common  was  modified.  This  update  modified  only  subroutines  GDL  and 
ZERN. 
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$rc  P  ri  FCY*IC=ARLCSST  «  SCCf  C128*]C  =  ABLC,.RA 


f  r  cr 
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* : c e n t  f  i  *  2  r  n 


•DELETE  2RMKE.13E 
CEL  =  DFL*2 
•DELETE  ZPMft.l?'. 

C  2C  X»2?F  FH(M  =  FI*F<N>*2(N>// 


•IDEM  F  I  X  ..  TR 
•  /  oITRFC 

•DELETE  cITTEF.2E,clTTEF.3C 

CF  =  1  ./ JFLCAT  CNPTS  )  *C  >  ) 


•IDEM  RrTZRN 


•  /  GEL 

•  TELETE  2PMNFC.2 

NAMELIST  /  2  E  F  N  S  /  F  C  ,  F  «  F  F  P  k  G  «  5  1  G  P  A  Y  «  N  T  E  »  M  Z  ,  Z  T  F  E  T  A,  c  L  I P  X  ,  c  L  I  F  Y 
•INSERT  /RMKF.F 


C 

C 

C 

c 

c 

c 

c 

c 

•Z EL  r T E 


ZTFET  A 


FL  IFX 
FL  IF  Y 
2RMINFC.2 


THE  CLCCKlnlSE  ANGLE  CF  RCTATICN  CF  TFE  CE  C  C  *■  F  C  £  I  T  1  C 
AXES  CNTC  TFE  SCG  CCCRCINATE  $YSTEV 
D  E  F  C  F  E  CALCLLATICN  C  F  THE  ZEPM^E  PCLYNOFIALS. 

IT  IS  I N  r  L  T  IN  DEGPEES. 

1.  RESLLTS  IN  A  F  L  I  c  AECLT  T PE  X  AXIS  efFC^E 
RCTATICN. 

1.  RESLLTS  IN  A  FLIP  APCLT  THE  Y  AXIS  RPFCPE 
RCTATICN. 


CINEVSICA  C22S\J(2C  ill) 
•INSERT  2 R  M  N  F  C  .  7 
ZTHETA  =  c. 

FLIFX  =  C. 
c  L  T  F  Y  =  C. 


*  INSERT  ZRa  INFC.E 

FZ2SV(IZtRN,2)  =  Z T H E T A  *  2 . 1  A  1 S 5 3 /  1  8 0  . 
PZ2SV < IZERN » A )  =  FLIFV 


PZSSVMZERN,?)  =  FL1FY 
•DELETE  2RNINFC.lCiZFMNrC  .13 

24<t  CALL  ZEF  N  CFZ2  S  V<  IZTP  N  .  3  >  »FZ2SV  C IZERN  .FZZS  V  (  IZERN  »?  >  * 
X  F22S V(  IZrFN*A  )  »F22SV ( IZERN»E ) » 

x  FZSAVE(2E,I7ERN)tFZSAVE(l»IZERN)) 


•/  ZERf 


•DELETE  2PNINpC.12 

SLPRCLT INE  2EFN<SJCPAY,XNTFRZ*TFETA,FL7FX,FLIFY»PC,F> 
•INSERT  Z P NIKE. 72 

CCSR'n  =  CCS(THETA) 

SINRCT  =  SIN(THETA) 

•DELETE  ZRKIKE.7E 
•DELETE  ZRMXE.77 
X  IN  =  X  < IX  ) 

YIN  =  X  ( I Y  > 

IF<FLIPX.GT..E)  YIN=-YIN 
Ic(FLIpY.CT..E)  XIN=-yiN 
XRCT  =  >IN*CCSPCT  «  YIN*SINRCT 
YRCT  =  -  X  I N • S INRCT  •  YIMCCSRCT 
IF(FLIFX.LT.-.E)  YRCT=-YRCT 
IF (FL !PY .LT .- .5 )  XRCT=-XRCT 
XSC.  =  X P  C T  «  •  2 
YSC  =  Y  F  C  T • *  2 
•CELETE  ZPN'IKE.Pf 

THE!  *  ATAN20RCT»XRCT> 


c  c C'  v  t c  cltflt: 

r 

Z\Z  FILE  EC 
C 

WFI7E<£  *3C35) 

REUINC  EC 

7  0  C  C  REAC<5O»a0OE)  IC1*C2 
40C5  CCRRA  7  U 1 *21  A  A  ) 

IF  (E°F  (EC).AE.C.)  G  C  7C  701! 

C  IF(ICl.EG.l)  k" I7E (£  ,3C2!  ) 

WRI7E(t*A0AC)  C  2 
<tO*C  FCR*A7(]  C*,21AA) 

GC  7 C  7CCC 
7  C 1 !  F  E  V  INC  ! C 

URI7E(6*3C35) 

C 

REWP.C  G7 

4E»  0  C  C  PEAC<G7,A0C5)  1  C  1  ♦  C  2 

IF(ECr C57).KE.C.)  GC  7C  4C15 
IF(ICl.EC.l)  WRITE  ( ( *  3  C  3  5  ) 

UR  ITT ( e  ,  AC  A  C  )  C  2 
GC  7  C  4CCC 

4  C  1  f  R  E  W  I K.  "  E7 

J7E  CF  *  303!) 

C 

F  E  V  I '  E  5  1 

6CCC  PEAC  <  57  ,  AC  C5  )  IC 1 *C2 

I=(ECF(E7).NE.C.)  EC  7C  6C15 
IF(ICl.EC.I)  WR  I  T  r  <  € *3C3!) 

I7E <f * 4C4C  )  C  2 
GC  70  £C  CC 
6  C  1 !  R  E  U  1 A  C  5  7 

UPI7E (6*3035) 

C 

C  ****  CCPY  7  APE  (  ISLRR Y  )  7C  CL7FL7: 

C 

REUAC  ISIRFY 

5CCC  REACC 7SLRRY»3CC5)  IC1»C2*C3 

Ic  (EOF (  ISURRY )  .NE  •  C  .  )  GC  7C  5015 
IF(lCl.EG.l)  WRI7E  <  6  *  3  C  3  5  ) 
WPI7r<€*3CR0)  C  2  «  C  3 
GC  70  5CCC 

5  C  1  5  FEUIMC  ISCJRRY 

WRITE (f«3C35) 

C 

C  •  **«  CCPY  7#FE(5C)  7n  C l T  F  L  7  : 

C 

WF 17 E ( t ♦ 3  C  2 5  ) 

RE  W  I\T  5  C 

8CC0  REAC<5C*40C5)  IC1*C2 

IFCEOFCf  O.NE.O.)  CC  7C  FC15 
C  Ir(ICl.EC.l)  WPI7E  <€*3C3E) 
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SECTION  III 
MAIN  EXECUTIVE  CODE 


1.  PROGRAM  SOO 

a.  Purpose  --  Program  SOQ  is  the  main  driver  program  or  executive  code 
for  the  total  SOQ  code.  Many  parameters  such  as  mesh  size,  number  of  points, 
initial  position  of  the  optical  axis,  the  initial  coordinate  array,  and  the 
initial  field  itself  are  established  in  this  routine.  Once  the  above  param¬ 
eters  have  been  initialized,  there  are  several  options  available  for  opera¬ 
tions  on  the  field.  Those  available  are: 

(1)  Calling  subroutine  GDL,  the  executive  program  for 
propagating  the  field  through  the  optical  elements 

(2)  Performing  a  quality  calculation 

(3)  Gradient  search  optimization 

(4)  Parametric  studies. 

The  above  options  can  be  activated  in  any  order  and  as  many  times 
as  desired  by  successive  reads  of  namelist  START.  The  flag  for  ending 
execution  of  the  entire  deck  is  to  set  WWl  =  0  in  the  last  read  of 
START. 


b.  Formalism  --  The  only  major  explicit  calculations  done  in  SOO  are 
those  which  determine  the  initial  field  when  it  is  not  to  be  read  in.  The 
OPTIONS  are: 

(1)  Plane  wave  -  constant  amplitude 

(2)  Plane  wave  -  Gaussian  amplitude 

(3)  Spherical  wave  -  constant  amplitude 
(4j  Spherical  vave  -  Gaussian  amplitude. 

Letting  E(x,y)  represent  the  field,  A(x,y)  the  field  amplitude,  and 
it  (x,y)  the  field  phase,  then  the  field  is  determined  by: 


35 


where 


and 


E(x,y)  =  A(x,y) 


A(x,v) 


<Kx,y) 


const . 
const. 


The  other  calculations  based  on  input  distributions  are  performed  in 
subroutines . 

c.  Fortran  —  The  only  common  variables  that  are  not  altered  in  this 
routine  are  SPACE  and  CFIL.  The  others  are  altered  and  are  defined  as 
fol lows : 


CU  =  the  complex  field  array 
X  =  the  coordinate  array 
DRX  =  the  x  position  of  the  optical  axis 
DRY  =  the  y  position  of  the  optical  axis 
NPTS  =  the  number  of  points  in  the  x  direction 
NPY  =  the  number  of  points  in  the  y  direction 
=  NPTS  if  SYMTRC  is  false 
=  NPTS/ 2  if  SYMTRC  is  true 
WL  =  the  wavelength  of  the  radiation 
PLTSG  »  plotting  parameter  (none,  amplitude,  or  intensity) 
INT  =  set  to  0 


The  relevant  parameters  are  read  into  the  program  by  means  of  the 
namelists  described  below. 

(1)  Namelist  START  —  This  namelist  is  used  to  initialize  para¬ 
meters  such  as  field,  mesh,  and  coordinates,  and  is  used  to  direct  the  cal¬ 
culation  to  other  sections  of  SOQ.  It  is  read  repeatedly  until  WWL  <  0  is 
encountered. 
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''iAMfLT'sT  / ST  AW  T /  <«L  «0L fit  «N.(PTS*  i  HlP  *. 0P«  Y. »E  ST«T,  I N ,  I P  .  NC  ALL  . 
*  A-1PGFS.  ITNii'*.  SY'UpC  *u<3AUSS  *  TITLES*  phIwAP 
X  •  P|.  OTG 

Utorsa-I..  AMPLITUDE  .  *HASfc  SLICE  PLOTS 
PLOTS3  I)..  Mj  SLICE  ou  ISo-lNTtNS  l  r  *  HI.UTC 
PLOTS*  1.,  INTENSITY.  PHASE  NLlCF  PLutS 
PLOTSal.,  [»JTf;SlTY.  Phase  ^LlCt  PLOTS 

nCali  controls  t«f  movement  insioc  mai* 

3  s.  epu  sectiuaucalls  uol  aw  beau  ru.x 


OT  t IPLTS) 

fwo*  OtS* 


3  CAt  .  r  1  '.JUALtTY  ALGUPYTpuM*  Pfc'AOS  QLOT 
„  C»U  T  >  ANY  )K  ThE  GOGLi.'  PL  J  r  T  I  NO  PAC*A,,FS.  PfcAOS  TmPEl) 
<3  <,*A»T<-,  OPTlHA/AflON  AL.A  iJAVtUN,  WF40S  nU  T  T  H 
N  PAH  APE  TO  IC  STUOltS. . INVOLVES  CrtANPIW  AhC  AftPAY 
AOS  PAWAH 


POP  <*i>L< 


PL  IS  PAoIATIPN  a  A  VeXuNGhT 

jcal  rs  int jal  si/k  of  calculation  utoroN 
vpts  Ts  numpep  of  ftElu  pui  vTs  aCpOSs  oCal 
jBx.OWY  s  The  («,r)  POSITION  Of  Tnt  CENTER  l)F  Cn  wELATtvt 
r  l  T-*F  OPTICAL  a*  is 

pf.STPT  ts  C'NTPOL  FOP  HfSlAPTt.vo  *1  Tn  f-xtSTINb  r.Afv  CO-£EF  ANO 

INITIAL  c I ELO  FUum  PREVIOUS  PUN . 

,TP'.S.  i c  pFSTAPTING.  up  TF  f  IE^U  TS  TO  »tAO  F«0«  Ip 
.FAlbF.  I F  NUT,  OP  IF  I  <1  T  I AL  F'lLLH  ANO  XfS  AMf  TO  -IF  C»LC 
(V  3  m!T  Nu-*Ht°  ,jF  iiATA  SET  F  UP  GUL  ANO  CAVITY 

I F  [\i  s  n,  Th£n  Ti.EpE  IS  NO  CALL  To  r.PL 


IP  IS  'NIT  K’NyfK  OF  INPljT  F  I  e  L  J  TO  uUl 
IF  Th  a  0.  TpF\  NOThINu  IS  Pt  AO 

ampgES  rs  Initial  ampl ’ foot  of  ^tawtinc;  hEam;pfaa  AMPLIToOt 

FOP  GAUSSIAN! 

PHIPAn  ts  Pp  ASF  FhUnT  P  A.J  1 0  3  OF  C-PVATUWF  (=0.0  F  OW  Rlan£i 
IlNUM  Ic-  The  TfFPATILN  NtJPMEP  ...IF  UivSPFC  IF  I E  0  IT  PEAHS  OFF  OjSK 

5Y«TAC  I  «A  LOS  l  CAL  1  OP  -j  i  PM(T  T  h  I  C  ANAYLSYS  Op  NOT 
OSAIISS  is  iii acE’t.p  a1  •Hii.i  GAUSS l an  amplituof  *  l.o/F 


(2)  Namelist  QLOT  —  This  namelist  establishes  the  parameters  nec¬ 
essary  to  perform  quality  calculations. 


NAPFLTST/ jLOf /  TITLE*  I NL  I  «  OP,  I S A  V  ,  I PhASF  *  A HO  ,PF 

c 

C  TITLE  fop  PLOTS  in  OUAuITY  ROUTINE 

C  I'JLT  IS  "LOTTING  PARADE.  TtP  FOP  PL  TOT. ...DUALITY  PLOTS 

c  3  n  I  so-l'l  TFNS I  T  Y  ANO  PJPEy  vs  PL/O  oOl'L."'  PLOTS 

C  s  j  fap-FIEl,,  Pvh  v S  pl/O  -»uuLO . 

c  s  J  NO  O.OIIL"'  PLOfS  CALLOLAlEa  Pjat--  >t->T.  O  (L  Y 

C  33  isd-InT-nSI  Ty  jOULO*  PwH  )iSr,  PijT  (0  Ppp  ->lO)  jlOTS 

a  »  lALC  PoNtP  I  NS  I0F  P  (B  ONLY... NO  CAil  TO  -lToT 
C  OP  s  PfAM  . '  I  ap£  tE. p 

r  is  AV  In  S  A  V  f  N(i  P  AP  APt  TE  P . 

c  aO  ,  I.0N2T  SAVE  *1  S  A  Yt  INPUT  FIE'iO 

C  s-l  USE  UtTt  SET  •'V  F  OP  INFirT 


' 


IRhASF  rONToui.S  Tn£  PhaSE  CowotLTION3  aPHlTF''  TO  TnF  FTELO 

a  (,  NOMF. 

=  1  planap  CO^‘ECriO.% 
r  l  a1. 


a  i  S PHi-wi 
a  i  H  0  T  m 

ph«  fs  *hf  .i‘ic>F'  bUf  Fjp  OH  r  i*4Ai')*r  ion.  . .  jr  a  call  Tij  hoal 
"unf  ->FKOWf  1h(l  HUCKEf  1 5  SREdFiEP  >->FPt 

HI-  i«  pl/!>  paOI  IS  F.jp  HI  I AL  Iff  CALL"!  AT  I  on 


IS 


(3)  Namelist  THRED  —  THRED  establishes  the  parameters  required 
for  three-dimensional  plotting  routines. 


MAMFLtsr  /  r-iUF'i  /  PLOT  JO.  !  I  Tw»  1.(>I  A,w. 

*  F\  Tfso.  -Hi  or.  'iAlao,  HSl.  I CE  •  .HP.  JF  A/* 


*  -TAS 


PL'l  f  b. 


i  iti  i. 
DI.Mk 


3  a 


«f-«i'E«  F  J—  I  >Hr  I-  i)  I  MF  NS  I  0*lAL 
*FAiSF*  Fph  ’<U  PLOTS 
T  I  f  LC-  !  NF Un‘*A  I  I  )N  r  0„  T  -<nt' 

ii[Af  OF  Illi'S  '  H  A  TF  i;  FJtLu  ON 


HL ■  I  f  S  IF 


<  i  -*fe  v  s : -s 
J  L  l )  T  *j 


'it  AH  FIEi 
4>_  PLOTS 


F>LT!SP  TS  L  HjtCAL  FOP  ISoPLpTS  aF  FItLf 

wpl1’!  IP  T«S  -1  'lub  uF"  l!jCLF  OpAwn  ON  ;  SL’H'.OT  Fop  PFFF p£NCF 
O'AIsO  i'i  I  >  I  AMk  TF  p  oF  li-lPLOlS  UESIPFO 
HScICF  is  l-*(jICA‘.  F'JW  SlILF  PLOTS  OF  F'  T F  l  I  b 

NP  s  Thf;  SLlCr  Tl  y  — ( *  I P  •  PLOrtTEH.  IF  a  .1...  np  a  m«TS/? 
iFa/i-  a  .1.  NO  H-.ASE  Pl.O*  F '  IP  T-IS 
a  I.  '-E  *  HrtASt 


>  O  O  C-  vF  w  ■» 


>  v  r 


(4)  Namelist  OPTIM  -  Namelist  0PT2  --  These  two  namelists  are  used 
by  the  optimization  portion  of  the  SOQ  routine.  OPTIM  must  be  read  first  to 
direct  the  optimization  procedure.  0PT2  establishes  which  parameters  are  to 
be  used  in  the  procedure  and  their  constraints. 


NAMf.LlsT/  /  ph,  ;pijt,  *i[no.  suiMT,  o°h 

L  PH  a  JI'C<H  Si/F  F  'JP  luAL  I  T  f  JHTJhI/A I  ION 

C  I  ho  r  s  ;  pi-,*FH  within  ph 

C  ?  total  powtp  In  pf am 

C  3  PEAK  r  N  TENS  I T  r 

C  NINO  IS  NUMHFH  OF  11(1)  V  A I  ARlES  T  0  HP  OPTIMj/FO 

c  Ilfl'MT  a  aluOEST  NoHHtH  OF  ITERATIONS  TO  Ht  HfcRFORMFO 

C  OHH  f$  Inf  pFAP  UIAMFTF.P  F Op  JjALITr  CAIC...TF  CALLFi)  Tj  ouAL 

C  FtPLlER  ThIS  IS  mpT  nFFOFU 


NAMfcLIST/OUT£V  Tfc.lt.  !EL2»  IElJ.  *MjN.  XMAX.  XAUU 
C  (  t£Ll  .  I F  t_  P  •  IfcLJ)  IS  THfc  vECtOH  UESCH  JW  INC,  ThF  POSITION  OF  ThF 

C  OPTIMI/FH  PAWAM£Tfc.H...IN  OkEMA T 10NAL  SPACE 

C  X-*IN  ANO  XMAX  APE  frit  CUNS  TWA  InTS  UN  THfc  QPTI*A*tr>  V^CTO* 

C  XA()n  TS  A  CONSTANT  ADDED  TO  TrtE  OPTIma/FIS  VASTABLf  SuCh  That 

C  ITs  VAL.'F  IS  NFVF>  cOUUAL  TO  /EHU 

C  ThF nF  AmF  MNl»  NUMHtW  uF  Calls  To  This  NAMFLI^T 

c 


(5)  Namelist  PARAM  —  This  namelist  gives  the  parameters  to  be 
varied  and  what  values  are  to  be  used. 


lAMFL  T*i  r  /  k’APAM  /  NlL  1  •i.fcLP.NfcLJ*  NPAHA.  XNPaHA. 
x  ofc„;  •  4PAkA.  xmoapa 

C  iKLl  .f  LP.EL.tl  IS  THfc  VtCTjW  UESC  H  i ti  T M-  THf  POsiTlUN  OF  THfc. 

L  V  AP I  APLt  whICh  IS  TU  Hfc.  VAPIfci) 

C  .PAOA.^PAUA  APfc  ThF  hi  M»£W  OF  ChAN(>FS  In  FACH  VAWIAHLE 

C  XNPAp  A  •  XHPAPA  6PF  Tnt.F  AwWAYa  T  it  A  T  CONTAIN  ThF  VALUFS  wh[Ch 

C  AHC  TO  Ht  i  iSFu 

C  w*»a**wwja  ^NL Y  "f.fc  ar  T  IS  ’u  Ht  VAkltu  L'S.  ONLY  ThF  NHAwA  SF  T . 

C  AN):  Sfc  T  ‘••cl.  1  *  0*  Tifc-  NtS  APF  Tl>f  I NNF  W  LOOP  »«»**  a**®»a»a 

r  t f  a-.r  a wp a y  la  rn  hi  cwanGfu  and  no  cau..  at  this  *!«(.  ro 

L  AI.'Y,;  :  H„JL  )  )  .  rHt'Al  Sr  T  NPaPAsO  .  .  ,  Twfc  N  T»C,  WAL'ltS  CAN  IU-  CHANr.cn 

C  IT-  :''LY  ONfc  ra  To  Hfc  ChAhGFi*  Sc  T  Hfcl  1  so 

C  »»®»*ALl.  Calls  jF  T  ®Ffc  \  (>OL  AND  PAP  AM  10  wll  AL  .  Pl  J  T  .  ,  .  «  I LL  «F  -fcJPATfcO 
C  [NS  [ '»f  T»t  PAHA-F  Tp  tC  LOOP 

(61  Program  SOQ  (Program  SOQ  Flow  Chart  (Fig.  12)  appears  on  page  40.) 


PROGRAM  SOQ 


76/176  0PT=1  FIN  4.6+452  04/27/79  12.23.47 


pmuomam  soou.utpot .  r  APti ,  i  APt2»  r  ape  j.  i  ape  a,  TAPEa. 
a  TAPt<»»ourPur,  i  ape/.  tapes.  i  ape9.  i apeiu.  i  APt  n .  i  tMtu .  i  ape!  j. 

0  r APtl A. TaPC ia. TAPt 16. FAPt 1  / . r APfc la. I APE19. TAPE20. I  APfc.il . 
CTAPE22.  TAPt2J.  TAPE2*.  TAPE23.  I»PE26.  I  APE2  /  .  T  APfc2»  .  TAPE29. 

OTAPEJU. TAPtJD 
LEVEL  2.CU.CUM, SPACE 
COMMON  /f»T/  SPACE  UOOUJ 

CuMMON/MtL I /CO ( 16J«A» »CF ill  IOSIF) .X l ICO) . »L .NHTS.NPY .OkX.OMY 
COMMON  /PL  IS 16/  PLOT  SO 
Common  /iniTl/  ini 

DIMENSION  r  I ILE  120)  .AS  <31  ./OP  l A )  .ALOw  <a»  .AOP  l  A>  • 

AlOPT J.A> .XSCH  W> . AOC l 1/ ./V. si . T I TLE J 140) .AUHAOOtA) * 

2  AMP  AH  A  I  10  )  *  ANHAHAUOI.  MAINE12S).  flTLES<20>.  LUM(J2/tf«) 
COMPLEX  CO.CML.CUHS 

LOo I c al  wts  r m  r . plo r  ji> . pl  r  i ao . psl  i  ce  .  c alul  .  s y m  r hc 
Coo i valence  icuid.cuhui) 

DATA  4WL.OCAL.NNPra.OOHX.OOMT/-l ..0..U.U..0./ 

DATA  DC AL  « HE  a  T  M I .IN. 1U.NCALL. MMPOEb. I  I NOM.SYM THC .DOAOSS.PHIMAD 
X  /  0.0.  .ImOE..  0.  4.  2.  1.0.  -1.  .FALSE..  0.0  •  0.0  / 

Da  I  A  1  I TLES/20»aH  / 

0 A 1  A  IULT.Dtf.ISAV.lPHASE.MaH.MF  / u , u . 0 . 0 . J • l . 0 .a. 0/ 

DATA  TITLE/20WAM  / 

DATA  MH.IPOT .NInO. Ntf Kill. D tf tf  / i . 0 . 1 . 0 . 1 . U . 0/ 

DATA  PLOT  JD.DIAM.PLT ISO.MPLDf .DIAISO.PSLICE.NP.JFA^E.XMAO 

x  /.false. «u.o.  .false. .0.0.  o.u.  .false. .0.  0.1.0/ 

DATA  PLOTS  /  0.  / 

DATA  f 1 TLE J/20*aM  / 
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EXECUTIVE  ROUTINE  STRUCTURE 


MAIN  0.143 


MAIN  0. 1 72  -«•» 


MAIN  0.226  — - 


MAIN  0.233-*- 


MAIN  0.245 


MAIN  a275H*- 


Figure  12.  Program  SOQ  flow  chart 


MAIN  0.170 


MAIN  0.224 


MAIN  0.231 


MAIN  0.243 


MAIN  0.273 


MAIN  0.298 


oonnn  no  oooooooooooooooooooooo  oononnnoooo  norr.  rror  nrnrinnnonnoonnr.onn 


C***«*««. MAIN 

NAMELIST  /S  T  AMT/  aaL  ,  OCAL  •  NNM  r  i,  f  OUMA  «ODH  Y  ,H£  S  TH  T  ,  IN,  lb ,nCALL  »  COMMi 

A  AMPOES,  1TNUM,  SYNTHC  .OGAUSS  «  IlTLtS.  PHIHAO  MAIN 

A  .  PLOTS  LMUPI 

plots«-i.«  amplitude  .  phase  slice  plots  lmopi 

HUMS*  3.,  NO  SLICE  OH  ISO-lNTtNSl T Y  PLOTS  LMOPI 

PLOTS*  1.,  INTtNSITT.  PHASE  SLICE  PLOTS  LMOPI 

plots*!.*  iniensitt.  phase  slice  plots  otuplisi  lmopi 

NCALL  CONTHULS  Trtt  MOVEHEnI  INSIDE  MAIN  MAIN 

*  2,  GOL  SECTION, CALLS  GuL  ANO  HE  AO  CUrA  f  MUM  J  ISA  MAIN 

*  3  CALL  TO  DUALITY  ALGOnY THUN,  HEAOS  ULOT  MAIN 

*  A  CALL  TO  ANY  OF  THE  GOULO  PLUMING  PACKAGES,  HEAOS  tHHfcO  MAIN 

a  S  STAHTS  OPT ImaEA  f ION  *LA  OAVION,  HEAOS  OPTIM  MAIN 

a  6  PAHAMETH1C  S TUOIES. . INVOLVES  CHANGING  ABC  AHHAT  TON  SOL,  MAIN 

HEAOS  PAMAM  MAIN 

MAIN 

*L  IS  HAOlAtiON  PAVELENGhT  MAIN 

OCAL  IS  1NT1AL  SUE  Of  CALCULATION  MEG  I  ON  MAIN 

NPTS  IS  NUMttEM  uE  FIELO  POlNIS  ACMUSS  OCAL  MAIN 

UMa,OMY  a  THE  (A«Y>  POSITION  OF  TnE  CENTEH  OF  CU  HELAT IVE  MAIN 

TO  THfc  OPTICAL  AAIS  MAIN 

MESTmT  IS  CONTMOL  FOH  HESTAMIING  a  I Th  EXIST InG  GAIN  LO-EFF  ANO  MAIN 

initial  field  Fhon  pmevious  hun..........  main 

.TRUE.  IF  MESI ANTING,  oN  IF  F lfcLO  IS  TO  b£  ME AO  F MON  lb  NA IN 

.FALSE,  IF  NOT,  OH  IF  INITIAL  FltLU  ANO  «CS  ANE  TO  dt  CALC  MAIN 

In  a  UNIT  NONdtM  OF  JA  T  A  St T  FOH  GOL  ANO  CAVITY  NA IN 

IF  IN  a  0,  Then  TnEHt  IS  NO  CALL  TO  GOL  MAIN 

MAIN 

Id  Is  UNIT  NuMotM  OF  INPUT  FltLU  TO  GUL  MAIN 

IF  IM  a  0,  THEN  nOIhINu  IS  HEAO  MAIN 
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30 

31 
3£ 
33 
3* 
iS 
J» 
J  7 
JO 
39 

90 

91 
42 
93 
99 

AS 

*6 

AT 

Ad 


A.YPGES  IS  INITIAL  AHMLlIuUt  OF  STAMllNG  dEAH  (Pt  AK  AMPLITUUt  MAIN 

FOH  GAUSS I  AN)  HAIN 

PnlMAO  IS  IS  PHASE  FHONT  HAOIUS  OF  LOMvAIUMt  1*0.0  FUM  PLANt)  MAIN 

ITnum  IS  The  MtHATION  NUMdEH , , ,  IF  UNSPtLIF  IE0  IT  HEAOS  OFF  OlSK  MAIN 

MAIN 

SrHTMC  IS  LOGICAL  FOM  SYNNtTMIC  ANAYLSYS  OH  NOT  HA1N 

UGAUSS  IS  OIAMETEH  AT  aNICn  GAUSSIAN  AMPLITUDE  «  l.U/b  MAIN 


MAIN 
C  MAIN 


MAIN 

MAIN 

NANElIST/ULOT/  TITLE,  Iuli,  Od,  ISAv ,  (PHASE,  Hbd  ,HF  MAIN 

MAIN 

title  fom  plots  in  duality  houtine  MAIN 

IOLT  IS  PLOTTING  PAWAMETtH  FUM  PL  TOT . . . .UUALl TY  PLOTS  MAIN 

a  0  ISO-iNTtMSITY  ANO  PUaEM  YS  Ht/U  GOOLO  PLOTS  MAIN 

a  1  fam-FIElO  PaH  VS  hl/O  . .  MAIN 

a  2  NO  GOULO  PLOTS  CALLULATES  pOGEH  01ST.  ONLY  MAIN 

■  3  ISO- INTENSITY  GOULO,  PaH  UIST,  dUT  NO  PaH  ML/0  PLOTS  MAIN 

a  A  CALC  POaEH  INSIOE  Hdd  ONLY. ..NO  CALL  TO  PLTOT  MAIN 

Od  a  d£AM  OIAMETEH  MAIN 

ISaV  IS  SAVING  PARAMETER. ««.,,«  MAIN 

aO*  OON«T  SAVE  •!  SAVE  INPUT  FIELO  MAIN 

■- l  USE  OAT A  SET  »9  F OH  INPUT  MAIN 

I phase  cunthols  the  phase  connections  applied  to  the  fielo  main 

»  o  HONE  main 

a  I  PLAN AM  CONNECTION  MAIN 

a  2  SPHEHtlCAL  MAIN 

a  3  BOTH  HA IN 

M««  IS  THE  BUCKET  SUE  FOM  OP T IMA2AT ION. .. IF  A  CALL  TO  GOAL  IS  MAIN 
OONt  8EF0HE  OPTIMUM  THE  BUCKET  IS  SPECIF ItO  HEME  MAIN 

HF  IS  HL/O  HAOIUS  FOH  GuALlTY  CALCULAIION  MAIN 

MAIN 


NAMELIST/  OPTIM  /  Mb,  IPUT ,  NINO,  NdlGIT.  Odd 
R8  a  BUCKET  SUE  FOR  DUALITY  UPTlMUAUON 
I POT  ■  1  POatP  *1 TMIN  Hd 

2  TOTAL  POGEH  IN  BEAM 

3  PEAK  INTENSITY 

VINO  IS  NUMdEH  OF  l NO  VaIABLES  TO  BE  OPTlMUED 


C  MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
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ss 
s® 
s  r 
SB 
s9 
GO 
SI 
G2 
Si 
6a 

65 

66 
6/ 
6B 
69 
TO 
T  I 

72 

73 

74 
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77 

78 

79 

80 
81 
62 

83 

84 

85 

86 

87 

88 

89 
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MB I G II  s  B 106t ST  NUMBEH  OF  I  TEH*  TUNS  TO  BE  PEHFOKMEU 

o« a  is  T»e  at*M  uu«e rt«  fuh  uo*l.itv  calc*. .if  calleu  tu  goal 
eahlieh  r«is  is  not  NtEuto 

NAMELIST /OP  TB/  IEL1.  lELB.  ltLJ*  AMIN.  AN AA .  AAUO 

(IEli.ielb.ulJ)  is  rnt  vtcrow  oeschibing  r me  position  of  the 

UNriMUEO  PAHAMETEP...IN  JPEHATIoNAL  SPACE 
AMIN  ANO  AMAA  AWE  THt  CONS  TWAIN f S ' ON  THE  OPT IMABEO  VECTOH 
AAUO  IS  A  CONSTANT  AOOEU  TO  THE  OPT IMABCO  V AH  1  ABLE  SUCH  THAT 
l IS  VALUE  IS  NEVEH  tUUuAL  TO  BEMO 
Theme  AHE  NINO  NUMBEH  OF  CALLS  TO  This  namelist 


c 


NAMELIST  /  HAMAH  /  iVEL1.neLB.nelJ.  nPaHA.  ANPAHA. 

A  MEL1.MELB.MELJ.  HP AHA.  AMP AHA 

(ELI  .ELB.ELJ)  IS  THE  VECiOH  DESCRIBING  THE  POSITION  OF  THE 
VAMUBLE  «HICH  IS  TO  BE  VAHIEU 
ivPAMA.MPAMA  AHE  THE  NUMBEH  OF  CHANGES  IN  EACH  V AMIABLE 
ANPAMA.AMPAHA  AHE  THtE  AHHATS  (MAI  CONTAIN  THE  VALUES  MHlCH 
AHE  TO  BE  OSEO 

••••••••IF  ONLT  ONE  SET  IS  To  sE  VAHltO  USE  ONLT  The  nPAMA  SET. 

ANO  SET  m£l1  «  0 •  TnE  N*S  AHE  Tut  INNEH  LOOP  •••••••♦•••• 

IF  AoC  AHHAT  IS  TO  BE  CHANOEO  ANO  NO  CALL.  AT  This  1 1 ME  1 0 
Aoru((OOL)).  Then  SET  npam »»0 . . . 1  hen  TmU  VALUES  CAN  BE  CHANGtU 
IF  ONLY  ONE  IS  TO  BE  ChaNUEU  SEl  MtLl«0 
•••••ALL  CALLS  BEl«EEN  GOL  ANO  PAHAM  TO  OOAL .PLO T . . .4  ILL  BE  HtPEAIEO 

INSIDE  THt  PAHAMElHIC  LOOP 

’•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••C 


NAMELIST  /  THHEo  /  PL0TJ0.UTLEJ.0IAM. 

A  PLTISO.  HPLUr.  01 A1SU.  PSL1CE.  NP.  JFABt.  AHAG 


PLOT JO  a  . THOt.  FOH  THHtE  U 1 MENS 1 ON AL  PLOTS  OF  NEAH  F1EL0 
a  .false,  fuh  no  plots 

TITLEJ  a  TITLE  INFORMATION  FOH  ThhEE  OIMCnSIONAL  PLOTS 
01 AM  a  01 AM  OF  ILLOSThAIEO  F IELo  ON  PLOTS 

PLTISO  Is  LOGICAL  FOH  ISOPLOTS  OF  FIELD 

HPLOT  IS  The  HAUIUS  OF  CIRCLE  OHAMN  ON  ISOPLOT  FOH  HtF  tHENCE 
J I A I SO  IS  OlAMETtH  OF  ISOPLOTS  0ES1HE0 
PSLICE  IS  LOGICAL  FOH  SLICE  PLOTS  OF  F IELO 

NP  a  Tm£  SLICE  IN  Y-OIH.  PLOTTTEO.  IF  a  0...  nP  a  NPTS/B 
JFABE  ■  0.  NO  PHASE  PLOT  FOH  THIS 
a  l.  SET  Tm£  PHASE 


. . . 

CALL  LlSfaO(S) 

INTau 
ICNVHGaO 
»L»-l. 

OH A  a  0, 

OHY  a  0. 

Pla3.1*lS92 
00  !•  !!■!*• 

!•  ASCH ( I I ) a 1 . 

1MHK  a  1 
MAINE ( 1 )  «  I 
iNOLOaS 
HF  a  B. 

999  HEAO(S.STAHT) 

ML  •  mBL 
NP  TS«NNP( S 
OPAaOOH A 
OHYaOOHY 

ploTsg  a  plots 

hEaO  IS.12*J)  T 1 1 LtS 
1C*J  FOHMAT  (BOA*) 
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92 

MAIN 

93 

HAIN 

9a 

HA  IN 

9S 

MAIN 

9ft 

MAIN 

97 

MAIN 

96 

MAIN 

99 

MAIN 

100 

HAiN 

101 

HA  In 

1 02 

HA1N 

10J 

HAiN 

10* 

HAiN 

i  as 

MAIN 

I  Oft 
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SUBROUTINE  LIST80 


Calls:  N/A 
Called  by:  MAIN 

Subroutine  LIST80  is  called  by  the  executive  routine  MAIN  to  list  data 
input  to  the  SOQ  code.  The  LIST80  flow  chart  fFig.  13)  appears  on  page  45. 

After  control  is  passed  to  LIST80,  header  information  is  printed. 

The  input  unit  is  read  and  a  counter,  KARD,  is  incremented  for  each 
record  read.  The  input  data  is  reformatted  and  printed  on  the  line 
printer.  When  an  end-of-file  is  received  from  the  input  unit,  it  is 
backspaced  K  records  and  control  is  returned  to  MAIN. 

Arguments 

K  Unit  number  on  which  input  is  read  (usually  5). 

Relevant  Variables 

C  Card  inputs  read  and  printed  as  read. 
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SUBROUTINE  AEROW 


Subroutine  AEROW  is  used  to  apply  a  random  phase  variation  to  the 
complex  field.  Figure  14  shows  the  subroutine  AEROW  flow  chart. 

AERO  is  entered  with  the  complex  field  array  real  coefficients,  CUR, 
and  with  the  number  of  points  in  x  and  y. 

SIGMAM  is  a  constant  established  by  previous  aerowindow  work.  It  is 
later  multiplied  by  the  random  number  returned  from  the  RANDU  call  to 
give  the  proper  random  phase  range  for  an  aerowindow. 

Inside  the  DO  LOOP,  the  random  phase  is  obtained  and  the  sine  and 
cosine  of  the  negative  of  this  phase  is  taken.  A  negative  number  is  re¬ 
quired  to  yield  a  diverging  phase  impact. 

The  complex  field,  CU,  is  represented  by  a  complex  number,  a  +  ib, 
whereas  the  CUR  variables  represent  the  real  coefficients  alone. 

!  CUR (I)  =  a 

a  +  ib 

CUR( 2)  =  b 

The  random  phase  is  applied  by: 


(a  +  ib)  (cos  d  +  isinq) 

a  cos  p  -  b  sin  <p  -  CUR  (1) 

b  cos  <p  *  a  sin  <p  CUR  (2) 

Argument  List 

CUR  Complex  field  array 

NPTS  Number  of  x  points 

NPY  Number  of  y  points 


Figure  14.  Subroutine  AERPW  flow  chart. 


Relevant  Variables 


CURS  Odd  number  members  of  field  CUR 

P  Phase  change 

SIGMAM  Aerodynamic  window  constant  =  0.  3>p" 
YFL  Random  number  generated  by  ''RANDU" 
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4 .  SUBROUTINE  RANDU 

Subroutine  called  by  AEROW  returns  rectangularly  distributed  random 
numbers  in  the  range  0  to  1  in  the  variable  YFL.  Figure  15  shows  the 
RANDU  flow  chart. 
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SUBROUTINE  APRTR 


Called  by:  MIRROR,  GDL 
Calls:  N/A 

a.  Purpose  —  Subroutine  APRTR  applies  an  aperture,  either  circular  or 
rectangular  (Fig.  16),  with  or  without  a  central  obscuration,  to  the  Comdex 
field.  It  also  determines  the  value  and  position  of  maximum  intensity  on  the 
aperture  plate.  Figure  17  shows  the  APRTR  flow  chart. 


Figure  16.  Subroutine  APRTR  nomenclature. 


•  •  •  • 


APRTR  is  entered  with  the  inner  and  outer  obscuration  dimensions 
along  with  the  coordinates  of  the  aperture. 

A  test  is  made  to  see  if  the  aperture  is  rectangular  or  circular. 
The  appropriate  boundary  parameters  are  computed.  Each  point  in  the 
complex  field  is  checked  to  see  if  it  will  pass  through  the  clear  aper¬ 
ture.  If  so,  it  is  left  alone.  If  not,  it  is  zeroed  out  after  it  has 
been  checked  to  determine  if  it  is  the  location  of  maximum  intensity  on 
the  aperture  plate. 
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Figure  17.  Subroutine  APRTR  flow  chart. 
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The  transmission  function  is 


t(x,  y)  = 


|RDISK<  V(x-xpos)-  +  (y-ypos)  <RA?RTR 
|o  otherwise 


b.  Relevant  formalism 


RPP  *  ( I  x  |  ♦  ^|J2  -*■  ||  y  |  * 

RMM  =  (l  x  I  -  ~j  +  (l  Y  1  *  %) 
RMP  =  |i  x  l  -  y  I  ♦  % j 

RPM  =  ||  xl+  *  |ly|- 


These  four  locations  represent  an  area  surrounding  the  particular 
point  of  interest  as  shown  in  Figure  16.  For  each  of  these  sets  of 
points  the  locations  of  the  aperture  and  obscuration  are  checked.  If  all 
the  four  points  impinge  on  an  aperture  or  central  obscuration,  then  the 
intensity  at  that  location  is  computed  and  checked  for  maximum  value, 
then  the  field  is  zeroed  out  (by  the  impingement) . 

Int  =  (ReCu)2  +  (ImCu)2 
Max  Int  =  AMAX  (Tut,  Max  Int) 


PER  =  0 


Cu  =  CU  X  PER 


f7W  mV 


If  all  four  points  lie  within  the  clear  aperture,  the  field  is 
unchanged. 

PER  =  1  (24) 

CU  =  CU  x  PER 

(25) 

If  the  four  points  encompass  an  aperture  edge,  then  the  intensity 


is  prorated  on  a  percentage  basis  and  transmitted. 

PER  =  (RAD-RMIN)  /  RMAX-RMIN)  (26 ) 

CU  *  CU  x  PER  (27) 

where 

RMAX  =  MAX  of  (RPP,  RMM,  RMP ,  RPM)  (23) 

RMIN  =  MIN'  of  (RPP,  RMM,  RMP,  RPM)  (29) 

R.AD  =  Radius  (or  x  or  y  dimension)  at  aperture  edge  (10) 


Argument  List 


RAPRTR  Radius  of  circular  aperture  (cm)  or  x-dimension  (half  width) 
of  rectangular  aperture  (cm) 

RDISK  Radius  of  central  obscuration  of  a  circular  aperture  (cm);  or 
x-dimension  (half  width)  of  a  rectangular  central  obscuration 

XPQS  x  location  of  aperture  center  with  respect  to  optic  center- 
line  (cm) 

YPOS  y  location  of  aperture  center  with  respect  to  optic  center- 
line  (cm) 

YAPRTR  y  dimension  (half  height)  of  rectangular  aperture  (cm) 

YDISK  y  dimension  (half  height)  of  a  rectangular  central  obscura¬ 

tion  (cm) . 
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Relevant  Variables 


A 

AINT 

AINTMX 

8 

DX 

DY 

RAD 

X 


Half  width  of  rectangular  aperture  (cm) 
Intensity  (W/cm4-) 

t 

Maximum  intensity  (W/cm-) 


Half  height  of  rectangular  aperture  (cm) 
x  distance  between  points  in  the  mesh  (cm) 
y  distance  between  points  in  the  mesh  (cm) 

»  RAPRTR,  aperture  radius  (cm) 
x  location  adjusted  for  centerline  difference  and 
accumulated  dx  (cm) 

XAR  (N)  x  or  y  position  of  N  (cm) 

Y  y  location  adjusted  for  centerline  difference  and 

accumulated  dy  (cm) . 

Commons  Modified 

/MELT/ 

Array  modified  CU(I)  3  APRFIX. 56,93. 
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6 .  SUBROUTINE  BLUMIT 


a.  Purpose  --  In  the  interstage  duct,  phase  perturbation  can  be 
induced  in  the  beam  due  to  transient  thermal  blooming.  This  effect  is 
suppressed  by  a  sonic  purge  flow  using  the  transverse  thermal  blooming 
routine.  The  BLUMIT  routine  models  this  residual  sonic  purge  flow  thermal 
blooming  in  the  interstage  duct.  Figure  18  shows  the  subroutine  BLUMIT 


organization. 


BLUMIT.  13  - ■-  BLUMIT.  22 


BLUMIT  24  — BLUMIT  28 


BLUMIT  29 - BLUMIT  39 


Figure  18.  Subroutine  BLUMIT  organization. 


b.  Formalism  --  As  the  beam  propagates  through  the  sonic  purge  flow, 
it  is  continuously  distorted  by  that  flow.  Under  the  assumption  that  this 
distortion  has  a  perturbative  effect  on  the  beam,  the  integrated  effect  of 
any  thermal  blooming  can  be  approximated  by  a  finite  number  of  discrete 
steps  in  the  following  manner: 

Assume  each  step  is  of  length  DL.  The  distortion  is  applied  by 
propagating  a  length  DL/2  to  the  center  of  the  cell,  then  applying  the 
thermal  blooming  transmission  function.  The  beam  is  then  propagated 
through  the  remaining  DL/2  to  the  edge  of  the  cell.  The  nonlinear 
blooming  transmission  function  t(x,y,AL, I(x,y) )  is 


t 


-ctAL/2  iAO 
a  e  c 


(31) 


where,  a  is  the  absorptivity  of  the  medium.  AO  is  written 


/*AL  ds'  6T  (x,y,z>)  C32) 

Jo 

This  can  be  rewritten  using  the  equation  of  state  for  an  ideal  gas 

(P  =  RTo/M)  and  the  Gladstone-Dale  relationship.  Assuming  constant  pressure, 

the  expression  of  AO  becomes 


-H-t)/ 


AL 


ds'  5T  (x,y,z') 


(33) 


where  5T  represents  the  temperature  variation  in  the  flow  due  to  heating  by 
the  beam.  For  transverse  blooming,  5T  can  be  written 


I  Cx'.y.z) 


(54) 


In  the  above  expression,  the  flow  is  assumed  to  be  from  the  negative  X  direc¬ 
tion  with  speed  v^. 
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This  effect  is  activated  in  subroutine  CAVITY  by  setting  NGTYPE»2.  The 
duct  is  then  treated  as  if  it  were  another  cavity,  the  gain/phase  transmis¬ 
sion  function  being  that  of  transverse  thermal  blooming.  It  is  updated  by 
subroutine  REGAIN. 

Since  the  only  mathematical  difference  between  transverse  and  free  con¬ 
vective  is  in  the  velocity,  this  routine  can  also  handle  free  convection 
blooming  with 


/  2aP(z)g  \  1/3 
Vfc  pCpT  ) 


(35) 


c.  Fortran 


Argument  list 


P  =  Intensity  array.  It  returns  as  the  phase  change  in  wavelengths  due 
to  blooming. 

G  *  Gain  array.  Intensity  loss  due  to  blooming. 

NCV  =  Cavity  number 

Wl  =  Wavelength 

Commons  modified  -  None 
Subroutines  called  -  None 

The  subroutine  BLUMIT  computer  printout  follows. 
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SUBROUTINE  CAVITY 


a.  Purpose  --  The  CAVITY  routine  models  the  interaction  of  a  GDL 
cavity  and  the  complex  optical  field.  As  the  simulated  field  is  propagated 
through  the  cavity,  it  interacts  with  the  flowing  medium.  As  a  result,  both 
the  intensity  and  phase  of  the  beam  are  modified  through  the  CAVITY  routine. 
Figure  19  shows  the  subroutine  CAVITY  organisation. 

b.  Formalism  —  As  the  beam  is  propagated  through  the  cavity,  its 
intensity  and  phase  are  continuously  updated.  The  beam's  amplitude  and  phase 
are  amplified  and  redirected  by  the  medium- induced  gain  and  phase  change. 

This  medium-beam  interaction  results  in  an  integrated  effect.  It  is  assumed 
in  CAVITY  that  the  total  effect  can  be  approximated  by  a  finite  sum  of  N 
terms  in  the  following  manner:  The  total  cavity  length  Z  is  divided  into  N 
steps,  each  Z/N  =»  AL  in  length.  In  each  segment,  the  interaction  of  the 
field  with  the  medium  is  approximated  by  vacuum  propagation  through  half  of 
the  segment,  (AL/2) ,  followed  by  the  application  of  a  field  dependent  trans¬ 
mission  function  of  the  form 
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Figure  19.  Subroutine  CAVITY  organization. 
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The  gain  coefficient  g  and  refractive  index  An  are  calculated  in  other  sub¬ 
routines  using  an  appropriate  choice  of  kinetic  modeling.  The  beam  is  then 
vacuum  propagated  through  the  remaining  AL/2.  This  procedure  is  repeated 
until  the  beam  reaches  the  end  of  the  cavity. 

c.  Fortran 
Argument  List 

NCAV  ■  Cavity  identity  number  (1,  2,  3,  ...  N) 

ILR  =  identifies  the  direction  of  propagation  through  the  cavity: 

-1  ->  right  to  left 
+1  =>  left  to  right 

N'EWCAV  =  A  parameter  that  identifies  whether  the  cavity  has  been  entered 
before. 

INIT  =  .True,  if  it  is  the  first  interaction  of  a  given  run 

=  .False,  if  it  is  the  second  or  subsequent  interaction. 

NSTE  =  Controlling  parameter  for  subroutine  STEP.  If  the  geometric 
beam  is  converging  or  diverging,  variable  area  mesh  propaga¬ 
tion  (VAMP)  should  be  used. 

NSTE  =  1  Constant  mesh  with  setup 

=  2  VAMP  with  setup  (exit  at  end) 

=  3  VAMP  (setup  and  remain  in  VAMP) 

=  4  V.AMP  (uses  existing  setup  and  exits) 

=  5  VAMP  (uses  existing  setup  and  does  not  exit) 

IN  =  Input  data  set  number  or  file  from  which  data  is  to  be  read 

RESTRT  =  .True,  if  initial  beam  is  read  in  from  unit  IB 

*  .False,  if  analytical  initial  field  is  desired 
NPLT  *  Controls  plotting  within  cavity: 

*  0  No  plot 

*  1  Print  field  before  and  after  gain  and  gain  coefficient 
ZLI  =  Incoming  propagation  distance  to  cavity  endwall 

(Additional  vacuum  propagation  distance) 

ZLO  =  Exit  propagation  distance  to  cavity  endwall 
(Additional  vacuum  propagation  distance) 

Note:  None  of  the  parameters  in  the  argument  list  is  redefined  by 
subroutine  CAVITY. 
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Common  variables  altered: 


US  -  the  intensity  array 
PPD  -  interpolated  power  density 
CDUM  -  interpolated  gain/phase  transmission  element 
XCAV  -  cavity  coordinate  array 
GFACT  -  define  by  namelist  CAVTY2 
CFIL  -  redefined  by  its  equivalence  with  Power  Density  array 

CU  -  the  complex  field  -  modified  by  propagation  and  the  application 
of  the  cavity  transmission  function 

CG  -  defined  for  the  first  pass,  read  in  for  subsequent  passes  (Cavity 
gain/phase  (G/P)  array  at  each  station  within  the  cavity) 

Name list /CAVTY  2 

CAVTY2  is  used  to  initialize  the  cavity  physical  properties.  The  name- 
list  is  as  follows: 

■NAMELIST/  C  A'/TY?  /XLEN.  YLE  N.ZLtN*  *mc«v  •  tmca  v  .  NOP  A  ,Nnc'V  ,N05£G  • 
x  Flag.  woe  ST  .  NuTYPF.  NuPLor,  lust.  IPUFN*  T  1  .  T2,  T  J  .  Tn/ ,  T%,r>s.  v  . 
<  a"ioO,  x-i?  .  <  C  f )  <2 .  »h?0.  a,  CO,  ao2  .  T  I  TLt  *  ALFA . ACP. VFL  T  y . T’f mp ,  anul  . 
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C  Yi.rlN  rs  lENGTm  of  CAVITY  ACROSS  noZ/LES 

C  'LtN  TS  LENOTh  OF  C  4  V  I  T  f  l  s\.  OPTICAL  OlRFCTTON 

C  XMCAV  IC  ThF  .<  -O I S  T  OF  OPTICAL  AXIS  FROM  N077LF  EXIT  PLANE 

C  YMC.av  is  ThF  y-OIST  OE  OPTICAL  axis  TO  CAvTTy  axis 

NOOX  IS  NUMHEW  OF  G«lO  PUi-vTS  ALONG  XlEN 

r  'iO()Y  IS  Nu«KER  OF  OHIO  POINTS  ALONG  Yl  Ffl 

C  NOStO  [S  NUMmFR  of  SEG-1F.NTS.  maximum  OF  S  PF  =  CAvTTY 

C  FLAG  TS  PARAMETER  WHICH  CONTROLS  SELECTION  OF  OE.SITy  fjelj 

C  sT.  SP-1 .CONTOURED  SIUEwalL 

C  -  ?.  s»-i ,  Flat  sioEwall 

C  =  J.  all  DPI'iSlTY 

c  =  <*.  MOu-b.  XLS-1 

C  a  S.  INPUT  F  SOM  CAPOS  UN  DATA  SET. ..IN... 

C  a  b.  SAMfc  SHLTNE  CO-EFF  That  wfpfc  READ  I N  F 1 VF 

C  *8.  PUN  112  AT  T*  l  .  b  SEC  RIGHT  STAGE  80TH  WALLS 

C  *8 . 1  READ  NAMFLIST  DtNSb  FOR  RIGHT  aTAGE 

C  =9.  RUN  1  OR  AT  Tal.b  SEC  LEFT  STAGE  POTh  WALLS 

C  *9.1  BE  AO  NAMFLIST  OENSW  FOP  LEFT  sTaGF 

C  =10.  «EAO  DENSITY  FIELO  FROM  UnIT  JO 

C  =11.  PE  AO  DENSITY  FIELD  FROM  UNIT  Jl 

C  MRE5T  ts  A  ELAG  FOR  COMPUTING  A  RESIRaTFO  gain. ..if 
C  =  I  READ  OFF  ThE  oIG  G  HUT  USE  nEw  OENSTy  FIELD 

C  =n  THFN  T aix £  The  CO-EFE  AS  They  nOw  EXIST 

c 

c  NGTYPE  a  2... THERMAL  HLOOMING  FOR  MULTI-BEAM 

C  a  1  .  .  .  F DLL  BLOWN  KINETICS. . .GUL 

C  a  0  SIMPLE  CLUSED  FORM  E.A.s.  gol  mnftics 
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a  0  NO  PLOTS  OK  GAIN  INSIDE  THfc"  CAVITY 
a  1  PLOT  a  SLICE  ThROUgh  THE  CAVITY 
a  2  ISO-AMPLI TUOE  OE  GAIN  IS  PLOTTED 
=3  GET  BOTH  PLOTS 
=-l  GET  all  POSSIBLE  PLOTS 


IPOEN  a  0  nO  PLUT  JE  PO«£R  OtNSlTY  AT  EACH  SLICE 
^  1  SLICE  »LOT  OE  PwR  OE  va 
a  2  ISO-  INTENSITY  PLOT  FOR  CAVITY 
a  3  ALL  FOR  THfc  MONEY 
IIISE  a  -1  NO  FUSE  no  PLOTS  NO  NOTHIN 

a  ,1  NO  FUSE  ANA YL S IS*  HU  T  DEnISTY  GOULY  PLOTS 
a  1  EUHS  ANAYLSIS...NO  PLOTS 
8  2  EUHS  IS  USED  <WHYM£?)  AS  IS  ISO-PLOTS 
a  T  EUHS.  ISO-PLOTS  OE  EUHS  ANO  RESULTANT  FUSE 
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PS  IS  STATTC  PRESSUHt  IN  CAVITY  AT  N£P.  ATM. 
V  IS  FLOW  VELOCITY  in  cavity  AT  NEP.  CM/StC 
phpCh  i<;  p-hranch  transition 
an2  rs  mole  epaction  of  nitrogen 

XC02  IS  MOLE  FRACTION  UK  CARHO.v  01  OX  [Of 

XH20  rs  mole  fraction  of  water 

*C0  IS  MOLE  FRACTION  OE  C APRON  MONOXIDE 
X02  IS  mqlf  EWACTIOn  OF  OXYGEN 
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ANGL  IS  THE  ANGLE  OF  FLO*  RELATIVE  TO  N.E.P.  0.  IS  LIKE  CAVITY 
(IE.  AWAY  FROM  N.E.P.)  ANO  180.  IS  THE  OTHER  UIRECTTON 
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2  NgTYP9<S».  N0PL09<5I.  io5V<3>*  IP0E9O7. 

J  5SGAIN<I90.5I  .SAI  IN<51  .Gtl A<3)  .HM0515I  . 
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CUMrtON  /CCu/  Cull  7100) 

DIMENSION  TP ASSI29U*  •  rPU<260>  •  PO<171uO>  •  PHUIWIOOI  • 

A  P0012)  •  XCAVU90)  •  CoH>j2/6d» 

COMPLEX  CO.CF1L.CG.CAKAV.CduM 

luo I cal  init.westht 
EQUIVALENCE  < CUH  <11  .CUll)  I 

Equivalence  ippoid  .Conn  .  icfiliu  «pou>  ) 

UAt A  GFACTW  /  i.  / 

DATA  XlEN.  YlEN.ZLEN.AMCAV  •  YMLAV.NQuX.NUUV.NOSEG. 

A  FLAG.MWtST.  NGIYPE.  NGPLUT.  lUSt.  1POEN, T 1 , I  2 , T J. TN2 . TS.PS . V . 
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A  /S*O.0.2*0.J«0.g»J*U.-4.U»lV»U.U/ 

NAME.LIST/  CAV  T  YE  /ALEN.YLtN.ZLEN.AMCAV.YMCAV.NOUA.NOOY.NUStG. 

A  FLAo.PWtST,  NGTYPE.  NGPLO  T <  IUSE.  IPOEn,  T  1  .  T2  •  73.  TN2  •  T  S.PS.  V  . 

A  P6HCrt,AN2.AC02.AM2U.ACU.Au2. I  lTLt.ALeA.ACH.VtLTY.ntrtrt.AN6L. 

A  A  v  6  A  IN  .  GF  AC  T  w 


XLtN  IS  LENGTH  OF  CAVITY  IN  FLOW  OIKECTION 

TLcN  IS  LENGIH  OF  CAVITY  ALHOSS  NOZZLES 

ZLEN  15  LENGTH  OF  CAVITY  IN  OPTICAL  OIKECTION 

AMCAV  15  Tnt  X-OIST  OF  OPTICAL  AAlS  FWOH  NOZZLE  tA I T  PLANE 

YHC4V  IS  THE  Y-OI5I  OF  UHUCAL  AAlS  TO  CAVITY  AAIS 

NOUA  IS  NUHOEH  OF  GrtlO  POINTS  ALONG  XLEN 

nOOY  ^5  NUMbfiP  OF  urtlU  POINTS  ALONG  YLtN 

NOSEg  Is  NUMdEW  OF  SEGMENTS.  MAXIMUM  OF  5  PEW  CAVITY 

Flag  IS  PAHAHtTtW  WHICH  LJnIWOLS  SELECTION  OF  OENSITY  FIELD 

»  1.  SH-l.CONTOUMtO  SiOtvALL 

«  i .  sw-i.  flat  siut«ACL 

*  i.  ALL  DENSITY 

*  ».  MOO-a.  ALS-1 

*  s.  Input  FHUrt  CAWUS  on  04  f  A  St!... IN... 

■  1,  SAME  SPLlNt  CO-tFF  I  HA  I  VtHt  Wt AO  IN  FIVE 

«d.  pun  Hi  a i  r«i.e  stc  might  stage  dUTH  walls 

»d.l  WEAu  LAMELlS 1  UtNSd  FOP  WIGHT  sTAGt 
•V.  WON  IU9  A I  I»l.d  StL  LtFT  STAGE  dUTH  WALLS 
*9.1  WF.AO  NArttLlSl  UENS9  FOH  LtF  f  STAGt 
*1U.  Wt  AU  OENSlIY  FIELO  FHOrt  UNIT  JO 

>11.  Wt AU  UtNSlTY  FIELD  FMUrt  UNIT  Jl 
WWEST  IS  A  FLAG  fop  COMPUTING  A  WtstMurtO  GAIN. ..IF 

*  l  Wt AO  OFF  iHt  dlO  G  do T  OSt  Ntw  UENSTY  FJtLO 

*  o  then  take  iHt  co-tFF  as  iwtY  now  exist 
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«  0  SlHPLt  CLOStO  FOmm  t.A.S.  GUL  KINETICS 
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NO  PLOTS  OF  GAIN  INSIUt  THt  CAVITY 
PLOT  A  SLICE  TnrtUOGH  I Mt  CAVITY 
ISO-AMPLi lUOfc  OF  GAIN  Is  PLOTTED 
Gtl  dUTH  PLOTS 
GET  ALL  rtOSS IGLE  PLOTS 


IPOEn  a  o  NO  PLOT  OF  POWtW  OENSITY  A I  tACH  SLICE 
«  I  SLICE  PLOT  OF  PWP  DENS 
*  2  ISO-  INItNSITY  PLOT  FOW  CAYIIY 
»  3  ALL  FOH  Tnt  MONtY 
lose  »  -1  NO  FOSE  NO  PLOTS  NO  NOTHIN 

A  0  NO  FOSE  ANAYLSlS.  dUT  OENISTY  GOULY  PLOTS  < AEHO ) 
a  1  FOHS  ANAYLSlS. ..NO  PLOTS 
a  2  FOHS  IS  OSEO  IWHYHt/)  AS  Is  ISO-PLOTS 
a  J  FOHS.  ISO-PLOTS  OF  FUHS  ANU  WESOL  T  AN T  FoSt  ANO  AEHO 
TITLE  IS  The  till  TO  APPtAH  ON  ThE  CAVITY  GOOLIES  A  GOULESESS 
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T3  la  V  IdHA T  ZONAL  TEMPEPlUHE  Of1  VO U  AT  NEP *  OEG  K 

TN*  la  V  IdP  A  T 10NAL  t£PPEPIUPt  OF  NlTaUGEN  AT  NEP*  OEG  K 

T5  la  SIAIIC  rEWPtHTuHE  1>V  (.AVI  IT  A I  NEP.  QtG  A 

PS  la  STATIC  PPESSOPE  IN  CAVITY  AT  NfeP*  ATM. 

V  IS  Ecoa  velocity  in  cavity  AT  NtP.  CP/SEC 

pppCp  IS  p-«PAnCH  ThanSITIun 

AN2  (S  lOLt  ENACTION  OF  niIpooEn 

ACO*  IS  POLE  Enaction  OF  CAHbON  OIOAIOE 

ap*o  is  pole  enaction  of  ■  *  ten 

ACO  IS  POLE  ENACTION  OF  CaPOUN  mono a  1 OE 

AO*  IS  POLE  FHACiiON  OF  OAYOEN 

••••••••••••a*  Tnenmal  scooping  Puri-t*EAn  cavity 

Alfa  IS  the  pEoIop  AdSOPn  CO-tEE  IN  CP-1 
ACP  IS  Ipf:  PEOIOP  SPECIFIC  PEAT  In  j/GP-OEG  A 

TTEPP  IS  (h€  PEOIOP  TEPPENAIUNE  IN  OEi*  A 

YELIY  is  T rt£  VELOCITY  of  PE01UP...1F  .LI.  1.  TPEN  TPt  EPEE 
CONVECTION  VELOCOTY  IS  lALLULAIEO  ANO  USEO 
ANGL  IS  The  ANGLE  OF  FLOd  PELAUVE  10  N.E.P.  0.  IS  LIKE  CAVITY 
(IE.  AaAY  EnoP  n.E.P.)  a NO  180.  IS  Tub  OTHEN  OIMECTION 
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CAVITY 
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CAVITY 
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CAVITY 
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CAVITY 

iro 
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in 
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10 

IF  (MMtSt  .EU.UI 
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CAVITY 

444 

NT  AMT  (NCAVN)/ (NSfM*l> 

CAVITY 

44S 

NAA*NA (NCAvN) 
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TPASS (4)  «  OY 

CAVITY 

446 

TPaSS (3)  a  NYA*.U01 
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Cavity 

4S6 

lUUTal 
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ESTABLISH  F IcLU  iNTEPPULAl ION  APMAY 

CAVITY 

4/6 
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IF  <NPLT.EU.ol  uO  tu  00 

CAVITY 
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CAVITY 
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CAVITY 
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00  SO  JY*l.NPY 

CAVITY 
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00  SO  JX*1.NPTS 

CAVITY 
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CAV 1 1 V 
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CAVITY 
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3.  SUBROUTINE  CENBAR 

a.  Purpose  —  This  subroutine  is  used  by  QUAL  to  find  the  centToid 
coordinates  of  the  far-field  beam.  Figure  20  describes  subroutine  CENBAR 
organization. 


CENBAR. 6- 
CENBAR.  11 


CENBAR.  12—«- 
CENBAR.  22 


CENBAR.  23— 
CENBAR.  24 


Figure  20.  Subroutine  CENBAR  organization: 
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fa.  Formalism  --  Let  E(x,y)  represent  the  field  and  let  w (x,y)  be  a 
weighting  function  defined  by 


w(x,y) 


1,  if  |E(x,y)  |  2  >  0. 1  (  |El'  ) 

max 

0,  if  |E(x,y)|2<0.1  (|Ei^ax) 


(37) 


Then  the  intensity-weighted  centroid  coordinates  are  found  from 


.  ffdxdy  |E(x,y)  [2  w(x,y)  ~x 
c  ffdxdy  lE(x,y)  |2  w(x,y) 


where  the  integrals  are  numerically  evaluated  over  the  calculation  region, 
c.  Fortran 
Argument  List 

NPTS  *  Number  of  points  in  x  direction 
DX  *  spacing  between  two  adjacent  points 
X  =  coordinate  array 

•y  0 

US  =  intensity  array  *  |CU(I)|”  =  •E(x,y)|<‘ 

XCINT  =  Centroid  coordinate  in  the  X  direction 
YCINT  =  Centroid  coordinate  in  the  Y  direction 
UMAX  =  Maximum  Intensity 

The  incoming  parameters  are  NPTS ,DX,X, US, UMAX.  They  are  unchanged  by  this 
routine  and  are  used  to  calculate  XCINT  and  YCINT. 

Note:  The  subroutine  assumes  that  the  field  is  square.  Computer  printout 
of  subroutine  CENBAR  follows. 


SUBROUTINE  CENBAR  76/175  0PT*1  FIN  4.6+452  04/27/79  12.23.47 
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AuY 
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•  OS ( d I  ) 

CbNBAH 

19 

AABAHaAXBAM* A0X*0A#X ( I ) 

CbNBAH 

20 
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CbNBAH 
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9.  SUBROUTINE  DENSY 
Called  from:  CAVITY. 

Calls:  LINTERP,  ROSN,  ROSN6 


a.  Purpose  —  This  routine  controls  the  generation  of  the  cavity  den¬ 
sity-induced  phase  distortion  for  each  cavity  in  the  optical  train.  DENSY 
provides  a  choice  of  density  fields  including  interpreted  test  data  from 
several  devices  and  the  ability  to  read  in  density  fields  from  tape.  Little 
formal  calculation  is  done  within  the  routine  itself,  other  than  the  genera¬ 
tion  of  multipliers  and  certain  other  constants  used  by  the  interpolation 
routines.  DENSY  does  tabulate  spline  coefficients  if  any  are  used  to  gener¬ 
ate  the  phase  distorting  field,  and  provides  a  decile  plot  of  the  phase  field. 
Figure  21  shows  the  subroutine  DENSY  flow  chart. 

Argument  List 

FLAG  flag  for  density  field  selection 

IF  file  number  where  MOD  6  density  field  is  stored 

IN  file  number  where  input  card  data  is  stored 

NPX  number  of  cavity  density  grid  points  in  X  direction 

NPY  number  of  cavity  density  grid  points  in  Y  direction 

NSYM  flag  for  symmetry  of  field 

RHO  free  stream  static  density 

XLEN  X-dimension  (flow  direction)  of  cavity  segment 
YLEN  Y-dimension  (sidewall-to-sidewall)  of  cavity  segment 
ISLAB  Z-dimension  (optical  direction)  of  cavity  segment 
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Figure  21.  Subroutine  DENSY  flow  chart. 


Commons  Modified 


/MELT/ 


Variables  Modified 

P  storage  array  for  density  induced  phase  distribution 


X4 

Y4 

14 

C4 

M4 

N4 

ROCL 


spline  coefficient  and  other  data  useful  in  generation 
of  MOD  6  (XLS-1)  density  field  -  not  used  for  other  field 
options 


/LENSY/ 


Variables 

D 

H 

LL 

M 


RHOCL 

TITLE 

TM 

XLS 

XMULT 

Y 


Modified 

spline  coefficient  array 

cavity  width  (sidewall -to -sidewall) 

flag  for  cavity  wall  symmetry 

number  of  data  points  in  spline  arrays 

centerline  density  variation 

field  identified 

tangent  of  Mach  angle 

spline  array  center  deviation  from  NEP 

magnifier  for  entire  density  field 

position  array 

density  change  array 


b.  Relevant  formalism  —  Most  of  the  formal  calculations  involving 
spline  fitting  a  density  field  and  interpolating  the  results  are  done  external 
to  DENSY  (see  subroutines  LINTERP,  ROSN,  and  R0SN6) .  This  routine  directs 
the  activities  that  generate  the  desired  field.  These  activities  are  summa¬ 
rized  below: 


(1)  The  density  field  is  read  in  directly  from  information 
generated  by  another  program  and  written  to  disk  (FLAG 
■  10  or  11) 
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(2)  The  sidewall  density  variations,  but  not  the  coefficients 
for  a  spline  fit,  are  read  in  by  NAMELIST  or  from  data  state¬ 
ments.  The  complete  density  field  is  generated  by  projecting 
these  data  into  the  flow  along  Mach  lines,  and  linearly  inter¬ 
polating  via  LINTERP.  (FLAG  =  8,  8.1,  9,  9.1) 

(3)  The  sidewall  density  variations  and  their  spline  fit  coeffi¬ 
cients  are  read  in  on  cards  or  taken  from  DATA  statements. 

The  complete  density  field  is  generated  by  interpolating  with 
the  spline  fit  along  the  projection.  (FLAG  =  1  through  7) 

A  decile  plot  of  the  density- induced  optical  path  variation  (in  cm)  is 
enerated  after  returning  from  one  of  these  actions. 

Subroutine  DENSY  computer  printouts  follow. 


SUBROUTINE  DENSY  76/176  0PT=1  FIN  4.6+432  04/27/79  12.23.4" 


SDbROUTI  <S  UtNSY(FLAG.HMU.XLtN,YLtN.43LAB.NPA.NPY.IF  *1N. NSYM) 

INIS  PROGRAM  COMPUTES  PRASt  VARlAllON  in  fcACH  SEGMENT  Dot  To 
VARIATIONS  IN  TNfc  GAS  DENSITY  IN  I Nt  OPTICAL  CAVITY.  Input  PARAMtTtWS 
anE  : 

UNO  -  Fr£E  STHtAN  STATIC  OtNSITY 

XLEN.YLtN»4SLA8  ANE  DIMENSIONS  OK  SEGMENT 

nPa.NPY  ARE  NUMBER  OF  GRID  POINTS  IN  A » Y  DIMENSIONS 

if  is  tne  f ice  on  mhicn  tne  mod  g  density  field  is  stored 

flag  -  flag  for  density  field  selection 

■  1.  FOR  CONTOURED  S iUta ALL. T * J  SEC 

»  4.  FDR  FLAT  SiOCriALLt I »S  SEC 

*  J.  latest  AND  GREATEST  Two  stage  density  field 
a  A.  FOR  ALS-l  MOO  6  NOEALtS  NORTH  AND  SOUTH  SIDE 

a  s.  for  Input  from  carus  of  spline  co-effs. 

a  o.  FOR  INPUT  from  REAU  IN  IN  PREVIOUS  CAVITY  DEFINITION 
■B.  RUN  u?  AT  Ta I .6  SEC  RIGHT  STAGE  BOTH  PALLS 
■«.  I  REAU  NAMELIST  OENStt  FOR  RIGHT  stage 
a*.  RUN  109  AT  T*1 «B  SEC  LEFT  STAGE  BOTH  WALLS 
■9.1  Rt AO  NAMELIST  0ENS9  FOR  LEFT  STAGE 
alu.  READ  DENSITY  FIELD  FROM  UNIT  30 
all.  REAU  DENSITY  FIELD  FROM  UNIT  31 


IMPLICIT  COMPLEX TC) 

LEVEL  2.  P 
REAL  C* 

EUOlVALENCE  (HA.H) 

COMMON  /MELT/  pi  1638*). 

X  A* (El) .Y*(4l«81) .2+141.811 <C*(21.8l) . MA (il ) .N4.R0CL 

X.OUMYS 1**39*) 

DIMENSION  T1TLE1 (40) • I ITLEEIEO) . 

X  Y1 (SOI .41 (SO) .01 (SOI .Y4 1*9) .42  I *S) .02 ( *9) . 

X  Y3 (SOI .43 (50 I .031901 . Ti TLE3I40) 

X  . TITLES (40) . Y8 (SO  I .48(901 .08190) 

X  •  Y8U  (90 )  . 48a  (SO )  .08a  (90 ) 

X  .Y9(S0> .49(90) <09(901 

X  .Y9MI90) .49* (SOI • 09a ( 90 1 • T1TLE9(4V> 

DIMENSION  T1LE(12).IP(190) 

COMMON/lENS  T4Y 191.4) . 4 (91 .4) .U (91 .4) . TM ( 4) <XLS(4) .H.XMULf (4) . 


OtNSY 

4 

DENSY 

3 

DENSY 

a 

OtNSY 

9 

OtNSY 

6 

OtNSY 

7 

OtNSY 

8 

OtNSY 

9 

DENSY 

10 

OtNSY 

11 

DENSY 

12 

OtNSY 

13 

OtNSY 

l* 

OtNSY 

19 

OtNSY 

16 

S0UTTCY1 

13 

SOU77CY1 

1* 

SU077CY 1 

19 

SOU77CY1 

16 

S0077CY1 

17 

SOU77CY 1 

18 

OtNSY 

17 

DENSY 

18 

OtNSY 

19 

DENSY 

20 

DENSY 

41 

DtNSY 

42 

DENSY 

23 

OtNSY 

2* 

C0MR2 

9 

OtNSY 

49 

OtNSY 

46 

DENSY 

47 

SOU77CY1 

19 

SOD77CY1 

40 

SOU 7  7CT 1 

41 

SOU  7  7  C  Y 1 

44 

CURB  l 

SO 

OtNSY 

49 

a  hhoclizi  .m<2)  .nrLEiiiui  .ll  oenst  jo 

namelist  /uenss/  rMa.Mtt»xMB,M«w*ra.^tt.rB«.ibn  5ow77cti  23 

NAMELIST  /06NS9/  Tm9*m9,AH9.m99* T9. 29, Y9».Z9«  SOU77CY 1  24 

OAT A  GOC  /0.22 B/  OtNST  Ji 

DATA  TM3/. 21034/.  MJ/SO/t  AMJ/.ui/  OtNST  32 

OATA  Y1/-5. . -4. , -3. *-2.3, -a. 2, -2. 1.-2. 05, -2. *-l.95*-l. 90,-1.85.  OtNST  33 

A-1.8*-l./*-1.35*-l.*-*9*-.a*-. 7.-.65.-.6*-.S,-.45*-.4.-.J5.-.JO*  OtNST  3* 

8-. 23*— .2*“.  uEnst  35 

C. 7, .75, .85*1. *2. *3. *4. ,5./  OtNST  36 

OAIA  21/5». 0Q4, . 00J5. .003, .002, .001*. 0005, 7»o... OOl*. 002*. 007, .014  OtNST  37 

A*.Ol7..UlS..006*-.U06*-.Ol4,-.dl6*-.Ol*-.004..001*2».002*.004,.012  OtNST  36 

8*. 018*. 0215,  .022 *.022*. 021*. 01 7..  013*. 0115. .Oil  i  .0105.6*. 01/  OtNST  39 

OATA  01/  2*.20a602ue-3*-.lO43otQt-2*.4768047t-2,-.6B9a?69t-l.  OtNST  40 

A-. 28817286-1. -.2891209  .-.1469915t-i • .34791 76  1769713  •  OtNST  41 

0.3599678  .-,62900106-1.  .a ( 1 63936-2 .- .4442123t-2.  .90S2100E-Z.  OtNST  42 

C— .65921466— 1 •  .2546337  .-.3526136  •  .28064146* 1 •-. 12 730436* 1 .  06NST  43 

0  .6159237  .-.23494556* 1 .-.321810 It* 1 .  —  .15781366*1 .  .23306486*1.  OtNST  44 

6  .18555426*1.  .464 7 1836* l .-. 12442 75t* 1 .  .3299169  .-.24753926*1.  OtNST  45 


F-. 28345126-1*  .1887734  .  .4073251b* 1 •-. 2081 7786* 1 .-.546137 7  •  OtNST  *6 

(>-.17336706*1.  .2808207  .-.5896124  .-.3223710  .  .61919316-1.  OtNST  47 

H  .74693746-1.  .6279989  .-. 1866893  •  .1187585  .  .3706905t-l»  OtNST  48 

I- .27358656-2.  . 73213306-3.-. 1 926669t-3.  .38533316-4. .38533316-4/  OtNST  49 

OATA  T2/-5..-4..-3.5.— 3..— 2.75«— 2.5«— 2.25.— 2..-1.75.— 1.5.— 1.25.  OtNST  50 

A— 1.1.  —  1..  —  .95.  —  .9.  —  . 85.  —  .8 .  —  .6.  —  .5.  —  .4.  —  , 3 »— .25.  —  .2 .  —  ,15.  —  ,1«  —  .05.  OtNST  51 

B0...0S«.l.«15«.2t.2S«.3.«4,.5««6»*/».a««9«l.«l.l.l«5*2..2.S.5»/  OtNST  52 

DATA  22/4*-. 025. -.022. -.019.-. 013. -.008. 3*-. 004.-. 0035.-. 002. -.001  OtNST  53 

A5.4#0..«003.«Q06.— .002.— .01.— .02.- .022.— .013.— .Q01..01..017..019*  OtNST  54 

8.015. .00 7. .002.0..-.002.-.004.-.006.3*— .008.-.006.-.003. .006. .016.  OtNST  55 

C. 026.. 076/  OtNST  56 

OAIA  02/2*.l92o707t— 2.— • 15365666-1 . .59541936— 1 .— .38520 2B6—1 *  OtNST  57 

A  .94539196-1.-. 51634516-1.  . 1600686t-l .-. 1 083909  .  .33556916-1.  OtNST  58 

B-.2583672E-1 .  .2152010  .-.3372499  .  .9930979  .-. 12351416* l .  OtNST  59 

C  .3474687  .-.154/332  .  .2999660  •  .3096702  .-.15386466*1.  OtNST  60 

0— . 7550822  .-.19922126*1.  .39239326*1.  .54964816*1.  .4901429  .  OtNST  61 

6-. 25  70528  .-. 18619316* 1 .-. 189522U* l .-.2557 182t» 1 .-.22 760486* 1 .  OtNST  62 

F  .20613746*1.  .12305496*1.  .2164280  .-.64558826-1.  .41807246-1.  OtNST  63 

G-. 1026701  .  .3688734  .-.1728234  .  .3224205  .  .83141466-1.  OtNST  64 

N-. 54986346- 1.  .41805006-2.-. 10607236-2.  .62395506-4.  .6239S50t-4/  OtNST  65 

OATA  UTLtl/  AMFLAT  .4rt  510. 4Mbw  AL .  AMC  Ot.4HNSlI.4MT  FI.4MEL0  .  OtNST  66 

14HBASE.4H0  UN.4H  SH-.4HI  0A.4H7A  ,B*4M  /  OtNST  67 

OATA  UTLE2/  4M  C.4HONru.4MUH60.4H  S I0.4ME4 AL . 4HL  06.4HNS1T.  OtNST  68 

1 4HY  F1.4H6L0  .4HMASE.4H0  0N.4H  SH-.4HI  0A.4HTA  ,6*4M  /  OtNST  69 

OATA  r ITLE3/  4M  LAT.4M6ST  .AHlwO  »4H  STA.4MG6  0.4H6NSI .4Hty  F,  OtNST  70 

14MIEL0.4H  CAM.4HlNAH.4H  -  2.4H  HEM . AHCtN T • 7*4H  /  OtNST  71 

OATA  13/  -3.548866.  -2,435555.  -1.324444.  -0.435555*  -0.324444.  OtNST  72 

A  -0.257777.  -0.235555.  -0.224444.  -0.220000.  -0.215555.  OtNST  73 

A  -0.213333.  -0.206666.  -0. 202222.  -0.191111.  -0.180000.  OtNST  74 

A  -0.175555.  -0.171111.  -0.16*444.  -0.157777.  -0.146666.  OtNST  75 

X  -0.124444,  -0.113333.  -0.102222.  -0.091111.  -0.080000,  OtNST  76 

X  -0.068888.  -0.057777,  -0.035555*  -0.013333*  -0.002222*  OtNST  77 

X  0.008888*  0.015555.  0.019999*  0.024444*  0.031111*  OtNST  78 

A  0.042222*  0.053333*  0.0644*4.  0.075555*  0.120000*  OtNST  79 

X  0.16*444*  0.231 1 J 1  *  0.3*2222*  0. *53333*  0.675S55*  OtNST  80 

X  0.897777*  1.3*2222*  2*008888*  2**53333*  3.120000/  OtNST  81 

OATA  23/  0.00*  0*00*  0.00*  9.00*  0.00*  0.00*  0.00*  0*02*  0.06*  OtNST  82 

X  0.13*  .185*  O.SS*  0.87.  1.50*  1*97*  2.0*.  2.06*  2.0*.  OtNST  83 

X  1.98*  1.85*  1.50*  1.27.  1.15*  1*10*  1.07*  0.98*  9.88*  OtNST  8* 

X  0.67*  0**7«  0.3*.  0.16*  0.09*  0*05*  0.03*  0.01*  0.00*  OtNST  65 

X  0.00*  0*00*  0.00*  0.00*  0.00*  0*00*  0.00*  0.00*  0.00*  OtNST  86 

X  0.00*  0.00*  0.00*  0.00*  0.00/  OtNST  87 

OATA  03/  2* .29 1*226-02.-. 1*57 1 IE-01  *  .619272t-01 *-.998122t*00«  OtNST  86 

X  .5220 lOt *01 ,-.38766*6*02*  .119*156*0*,  .1*57806*0*.  .2087126*0*.  OtNST  89 

X  .8861666*0*.  .26 73196*0*«-.3J 70966*0*.  . 1 0 74 166 *03*- .*8 3* 706*0*,  U6NST  90 

X-. 2268116*0**-. 1280326*0**-. 9701  716*03. -.2389906*03*-. U1126t*03*  OtNST  91 

X-. 6*06236*03,  .1392996*0*,  .*1*6*06*03.  .3304416*03*-. 8A**066*03*  OtNST  92 

X  . 1 1 1 185t *03* -«B6336Jt*02 *  .8 1 9 1626*02.-. 1 1 98286*03*-. 9028606*03.  OtNST  93 

X  .1301266*0**-. 3053386*03*  . 1599786*0*.-. 188 1 766*02*  .3*6199t*03«  OtNST  9* 

X  .37*5166*02*— • 1000626*02*  .2573506*0 1 2877**6*00.  .7598316-01.  OtNST  95 

X-. 16180*6-01  *  • 3305966-02  *  — *86602*6-03*  . 1581 356-03.-.* 1 39566-0*.  OtNST  96 

X  . 7*46516-05.-. 16*1 756-05.  .5081616-06,-. 78 1 7866-0 7 781 7866-07/  OtNST  9T 

OATA  f 1 TL68/4N  .AHrtUN  «4H1 12  *4H1.6  .4H56C  .4HHIGM.  S0077CT1  25 


76 


*  *nr  sr.4HA0t  .4meast.4h  *No.*«*esr,«H  «al.*hl  AN«*«*Lrr,4Hic  •  souttcyi  26 

X  4H  .4H  .4N  »4rl  .4H  SOQTTCY 1  27 

DATA  TN8/. 20445/. Mb/22/.A*b/. 0093/.  *80/22/  SOOT7CY1  28 

DATA  YA/*t«8»*li7t"li6ifll«9**li4t*l«Jt*l*^i*Ui*«0f«i7«««6»«*b4  S0077CY1  29 


S0UTTCY1 

30 

SOOT TCY1 

41 

A  1  (0t  »  /  »6*  ^  »  N  lUi*t  1  Ji*^/ 

S0O77CYI 

42 

It  A]  A  *«*/•*•♦•  l  •  9*-i  •  f  •- 1  *&*»l  - 1  •*  *-i  «J  1  •  i  *- i  f  * 

SOOTTCYI 

44 

A  *#6f*  •  i  f  *  —  •  l  ♦  •  £  $  •  i6/ 

SOOTTCY1 

4* 

UA  I  A  Zd4/UttU«»»b*«li*  1  •  1  •  1  •  1  *  *d»  t  lt^*4*—*9**i  •  b  f  •  i  •  7  t“l*dt*l*  7  * 

SOUT7CY1 

35 

A  7  »t)t  lu«/ 

SOU77CY1 

46 

OA(A  TITLE9/4H  ,4nWlJN  ,  »rtiU9  ..HI. a  .4HS£C  .4HL£F(. 

S007TCYI 

4T 

A  »H  5T.4»1Au£  , 4M£Abr.4M  ANU.anatS r .4H  *AL.»ML  AN,*«ALr r .*HiC  « 

SOU7TCY1 

3a 

A  4M  f  4rl  »%r1  t4M 

SOOTTCYI 

49 

DATA  TM9/  .20445/  .*9/  16/ .AM*/  .0  1/ >  N9H/19/ 

SOOTTCYI 

40 

0A T A  T9/*l • 1  •  l •!&*• »d6«"i64«*ib^ 

SOU77CY1 

M 

A  •« *UHi • 16*  «9d/ 

SOOTTCYI 

42 

0A  T  A  Z9/**«  4*  •©♦•l  «  ob*«  1  •3i*«AtU4fl»N  l • *  u •  ♦ 

SOOTTCYI 

43 

A 

SOU77CY1 

44 

OAT  A  Y9d/"i  Wb«*i»5<i!i*l*%«sl»d6f*l»di*i96«««66t*i44i«t 

SOOTTCYI 

45 

A  42  *  •  44  *  *62/ 

SOOTTCYI 

46 

OAT  A  294/a*3* iltbt «ib t“ 1 1 *»55 • 1«U3*2* 

SOOTTCYI 

4  T 

A  •  4^ * • 3 1 • 5 1 2 • 5 « 4 • 1 • 6 • d/ 

SOOTTCYI 

48 

C' 

OfcNSY 

98 

OAT A  UlANK/in 

OfcNSY 

99 

H  *  YLEN 

OtNSY 

100 

XMACn*4.S6 

OtNSY 

101 

LAG*FlAG».1 

OtNSY 

102 

|»UT  *  NPA»NPY 

OtNSY 

103 

00  1629  lZt«0*l.*UT 

OtNSY 

104 

1629  PI  IZtMO)  *  Q. 

OtNSY 

105 

c 

CALL  ZERO  IP  1 1 ) .PlrtOfl 1 

OtNSY 

106 

LL«l 

OtNSY 

1 0  T 

IF  lLAG.EU.5.0R.LAG.£9.7.UR.LAG.t0.a.0R.LAG.EQ.9)  LL*-(NSYH-2) 

SOOTTCYI 

49 

00  ro  (100. 200. 300. *00. 500. 2.500. 800.901. 1001. 1001) .LAG 

SOOTTCYI 

50 

c 

CONTOUWCO  5 IuEwALL  OtNSIfY  F  itLl) 

OtNSY 

no 

t 

100  TM1)*TH2*S0*<T(  (AN2»*2-1  .  )  /  ( AMACn4*2- l . >  ) 

OtNSY 

m 

X*UL0*(AM2*«2/S(JRT  (A*2**2-l.) )/  UMACM*«2/SUHT  1  A«ACh«*2-1  . )  ) 

OtNSY 

112 

XMULT(l)  «  i./XNULG 

OtNSY 

113 

XLS 1 1 ) »0.0 

OtNSY 

114 

Mil)  ■  45 

OtNSY 

115 

oo  no  1*1.45 

OtNSY 

116 

Y 1 1  • 1) *Y2<  1) 

OtNSY 

11  T 

Z  ( I  •  1 ) *22  1 1 1 

OtNSY 

118 

no  ou.n*02ii) 

OtNSY 

119 

OO  120  1*1.20 

OtNSY 

120 

120  UrLE<n«TITL£2<l> 

OtNSY 

121 

GO  TO  2 

OtNSY 

1 22 

c 

FLAT  SIOEmALL  QEN51TY  OlELO 

OtNSY 

123 

200  TMl)*TM*5aHT< (AHl**2-l.)/ (XNACH**2-l . > ) 

OtNSY 

124 

ANULG*(ANl**2/SoM  ( ANl**2-l.)  )  /  U«ALH**2/S0HT  (AMAC«**2-l.)  ) 

OtNSY 

125 

AHUL  Til)  •  l./AHOLO 

OtNSY 

126 

ALS 1 1) *0.0 

OtNSY 

127 

Ml)  *  50 

OtNSY 

128 

00  210  1*1. &0 

OtNSY 

129 

Yll.llsYllI 

OtNSY 

140 

111. l)*2ill) 

OtNSY 

141 

210  OUillaOHl) 

OtNSY 

142 

00  220  1*1.20 

OtNSY 

143 

220  T I TLt 1 1 ) *T X TL£ III) 

OtNSY 

144 

00  TO  2 

OtNSY 

145 

c 

LATtST  ANO  GREATEST  T«0  STAGE  ofeNSiTY  FIElO 

OtNSY 

146 

400  TMl)  ■  1*3 

OtNSY 

147 

ALS 1 1 >  *0.0 

OtNSY 

148 

XMULTIl)  *  XM4 

OtNSY 

149 

HU)  •  Hi 

OtNSY 

140 

00  310  I  ■  I.H3 

OtNSY 

141 

t inn  *  rjin 

OtNSY 

142 

211.1)  ■  Z 4  1 1 ) 

OtNSY 

143 

410  0  1 1 . 1 )  *  03(11 

OtNSY 

144 

00  320  1  >  1<20 

ObNSY 

IAS 

320  utleu)  ■niLtJin 

OENSY 

1A6 

W  TO  2 

ObNSY 

1*7 

(ANALYTICAL  S 10EMALL  KMOOtCTlON)  •••« 

SOU7  7CY  1 

SI 

boo  if  iflag.lt. a. ubJ  go  ro  au< 

SOU77CY 1 

S2 

weao  (S.uENbai 

S0077CY 1 

S3 

mcao  <5 .aim  uiLta 

S0077CY 1 

S4 

B07  FOMMAK20A4) 

S0077CY1 

bS 

ao2  Tutu  *  run 

S0077CY1 

36 

ASEED-7. 

S0077CY1 

57 

ALSU)  ■  0.0 

S0077CY1 

S8 

AMuLI(l)  *  AMS 

S0U77CY1 

59 

M(l)  a  M8 

SOU77CY1 

60 

00  810  lal. M8 

S0077CYI 

61 

Tihi)  >  rati) 

S0077CYI 

62 

Zllill  a  28111 

SOM77CT1 

63 

810  Ollfll  a  0.0 

SOU77CY1 

64 

ifill.eo.I)  go  ro  sis 

SOQ77CY1 

65 

TM(2)  a  T  MB 

S0077CY1 

66 

ALS (2)  a  o.o 

S0077CY1 

67 

A HOC f 12)  a  A«8 

S0O77CY1 

68 

» 12)  a  «8M 

S0077CY1 

69 

00  811  1*1 »h8m 

S0077CY 1 

70 

r ( 1 *2)  «  Y8H(I) 

S0077CY 1 

71 

211.21  a  28w(l) 

SOU77CY1 

72 

an  0(1.2)  ■  0.0 

S0077CY1 

73 

ais  00  820  1 « 1 .20 

SOQ7  7CY1 

74 

820  TITLE(I)  •  UTLE8U) 

SOU77CY1 

75 

GO  TO  2 

S0077CY1 

76 

001  IF  (FLAG. LT. 9. 05)  GO  TO  004 

S0077CY1 

77 

M£aO  (5.0ENS9) 

■»-  S0077CY1 

78 

MEAO  (5.807)  TlrufcO 

SOU77CY1 

79 

004  T*(l)  a  TM9 

S0077CY1 

80 

ASEE0»7 . 

S0077CY1 

81 

ALSU)  ■  0.0 

SOU77CY1 

82 

AMOLT(l)  a  AM9 

S0077CY1 

83 

MU)  a  M9 

S0O77CY 1 

8A 

00  910  1*1. M9 

S0077CYI 

85 

YU.l)  *  Y9UI 

SOU77CY1 

88 

211.11  a  29(1) 

S0077CY 1 

87 

910  0(1.1)  *  0.0 

S0077CY1 

88 

IF  ILL. EG. 1 )  GO  TO  91b 

S0077CY 1 

89 

TM(2)  a  IM9 

S0077CY1 

90 

ALS (2)  a  0.0 

SOU77CY 1 

91 

AMOL)(2)  a  AM9 

S0U77CY1 

92 

M(2>  a  M9W 

S0077CY1 

93 

00  911  1*1. m9* 

SOU77CY1 

94 

y(I. 2)  •  Y9X ( I > 

SOU77CY 1 

95 

2(1.2)  a  29a  (I) 

SOU77CY1 

*6 

911  0(1.2)  *  o.O 

SOU 7  7CY 1 

97 

9lb  00  920  l«l.2U 

SOU77CY1 

98 

920  UILe.ll )  *  UTLfcVU) 

SOU77CY1 

.oO  To  2 

S0O7  7CY1 

100 

boo  MbAO  UN. 987)  (TllLtU)  .1*1.1/) 

ObNSY 

1*8 

987  FOMMAT  117*4) 

ObNSY 

149 

00  7 bb  1  a  l.J 

ObNSY 

150 

785  U ILL (17*1)  «  8LAN8 

ObNSY 

Ibl 

989  FOHMAl  (JF 10.8. lb) 

ObNSY 

152 

988  FOMMAT  12Fl0.6tbl3.a> 

ObNSY 

153 

2  00  So3  L  •  l.LL 

ObNSY 

154 

IF  <LAG.m£ .5. ANO.LAG.Nb • 7 1 

Go  To  222 

ObNSY 

155 

m£aO  (In.  989)  ALSIU.  AMULML).  IM(L).  MIL) 

ObNSY 

156 

MNH  *  *<L) 

ObNSY 

157 

00  502  l  *  l.MMN 

ObNSY 

158 

502  Mb  AO  UN. 988)  YU.L)  .2(1. L)  .0(1. L) 

ObNSY 

159 

C  LOMMolE  MMASb  OlsrOHUON  In  SboMbNT 

ObNSY 

160 

222  *M 1 TE ( 8 * 56 )  t T  I C LE U ) . !■! .20 1 

ObNSY 

161 

S6  FOHMAt UM1.2A.20A4I 

ObNSY 

162 

•81TEI6.J)  MhO.  n. 

flag. als (l)  .amultid  . imil)  .mil) 

06NSY 

163 

3  FONNA  T (b8H0  MhO 

M  FLAG  ALS  AMULT  fM 

ObNSY 

16* 

1M  /Elo. J.5A.F  7. J.7X.FS. 1.2F6.J.F8.5. 1 1/1 /A. IMS. 1  IA.6FI0ELMM0.6A. 

ObNSY 

165 

78 


nr  n 


ZllNCOtFFIcitNT  ) 

MMM  a  MIL) 

*NlT£(6.4)  ltlliU(^tt(Uiull(L)il*l  *  MMM ) 

*  FOMMAT (10A«K10.9»9A*FI0.9#4A.fcl*«7) 

903  XHuCL(L)a-XMO«S0C4ZSLAB«AMuLf  (L) 

OAaAL£N/N*»x 
OYaYLtN/NPY/ (NsYM*i) 

IZ*0 

00  It)  1*1, NPY 
SaOY»U-.5) 

00  10  Jat.NPA 
A*0Xa(J-.9) 

IZ*IZ*1 

IFILAS  <£0.  S.OX.LAO.fcd.9)  CALL  LINTfcKP  t  A  •9.0*') 

C  IK (A. QT .20. >  *X1 TE (6,2091 >  X.S, UP, 1Z 

2U51  FOXMAT<10A,9NX  S  Of*  1Z»3 (9A ,t 15. 7) . 19) 

IK  (LA6.LT.dl  CALL  XOSN ( A.S.oP) 

1U  P(IZ  >*OP 

SO  To  11)00 

((  MOOlKIbO  1/14/ 77  KAA  TO  »EAo  2  OENSITY  KlfeLOS  FXON  01SK 
KLASalO.  HEADS  K IfcLO  fX ON  uNl  I  JO 
KLASall.  Ht AOS  K  IfcLO  FXON  UNIT  31 
luul  IK (Lao.eu. 10) I0fcNS*3U 
IF  (LAU.fcO.il)  IotNS*31 

C  )  ) 

NUB  a  MO  T 
NUoSa  NOD 

IF (NSfN.Nfc.U) «H J Tfc (6. 1 13) 

113  FONMAI  <9A,»3rtfcXHUN-UENSl  I  Y  K  IfcLO  CMOStN  MOT  COMMtNSUHATfc  , 
AASnalTH  SYMMfcTMlC  MtSM,  PHOSHAM  5  [  OP  ENCUUNTtStU  ./) 
IF(NSYM.Nfc.o)SIOP 
IF (No«8.we.MOa(«Mirt(6.11/) 

IK  (NOaa.Nfc.Ktoai  si  op 

HZ  FomMA  r  (bA.  JOMCUHKtlMf  MfcSM  PTS  NOT  I'M  ASPtfcMfcN(  «Uh 
A«4OHaroHfc0  OfcNbHY  V  ALUfcS  «PHOSX AM  5,  )  OK  IN  DfcNb  I  I  Y  .  PLZ 
Y.IIMCMfeCA  INPUI  /  ) 

KMAbt  *USLAd/  196.  32) 

MfcAO(  10fc<«b)  ( P  (  1 Z  1  .  U»l.NUaB) 

C  ((  MfcYtbfcO  ON  OM  afcKOHt  li/l/lo  K.AOAMfcA 
HfcAO ( I OEMS) AVOPO 
HfcalNO  IOENS 
«m  rt  (6.  luab)  AVUKO 

Haft  FOMMA I  ( JAM  AVOPI)  IN  AXfc  A  UK  CUNVtA  MIMKOX  a  .fcJS.a) 

00  095  **  a  l.Muaa 

►MMW  atPUvKI  -AVOPO)*  PHASfc 

995  continue 

»mre(6.u*)  ioens. Noaa 

Ilk  FOMMAT (SA.ZMMOEnSI TY  F IfcLO  HfcAO  KMgM  ON l I  .IJlZM.  .19. 

AdMPTS  ME Ao  /) 

looo  continue 

C  — PLOTPlao.  FOH  NO  PLOT  T INS  POINIS 

C  ••PLOTPIal,  FOM  PLOTTINS  POINfS  In  A  OIX.  TMXg  CENTEX  OK  CAVITY 
C  — PLOTPTaJ,  K  OX  PLOTTINS  POINIS  IN  Y  OlM.  TMXg  CENTEX  OK  aEAM 
PLOTPTao. 

IK tPLUTPI .fcU.O.)  SO  TO  1ZJ« 

•XlTfc(6»l9a7> 

l>a7  FuXMAT (//ZOA. ISrtPLOTT INU  POINTS 

III*o 

AUAaALEN/NPA 
AOYaYLEN/NPY/ (NbYM* l ) 

0O  1Z  39  1*1  *NPY 
YYY*AUY*( I-.S) 

00  1Z39  Jal.NPA 
*AA»AOA»( J-.9) 

111*111*1 

IK (PLOTPI .fcu.l . )  SO  TO  1909 
IFIAAA.Lt. 5.0. OX.AXA.Se. 9. u  7  >  SO  TO  1ZJ5 
SO  TO  1990 

1569  IF (YYY.Lt<5.6.0N.YYY.St.9«))S0  TO  IZJ9 
1990  aXlTE(6»J*96)AAA»YYY.P(UI) 

J*9fc  FOXMAT ( 10A. 1 TMA  .  Y  .  OPO/StS  , J(tl9.7.9A) ) 


UfcNSY 

166 

OfcNSY 

167 

OfcNSY 

16a 

OfcNSY 

169 

OfcNSY 

1  TO 

OtNSY 

1  T  l 

OfcNSY 

1  72 

OfcNSY 

173 

OfcNSY 

174 

OfcNSY 

175 

OfcNSY 

176 

OfcNSY 

177 

OfcNSY 

1  7S 

SUU77CY 1 

101 

SOU77CY1 

Mi 

SOU77CY1 

103 

SOU77CY1 

104 

OfcNSY 

iao 

OfcNSY 

1«1 

SOU77CY1 

105 

S0U7TCY 1 

106 

SOU77CY1 

107 

SU077CY1 

iua 

S0077CY1 

109 

SOU77CY1 

110 

SOU77CY1 

111 

S0077CY1 

112 

S0077CY 1 

113 

SUU77CY 1 

114 

soy  77c  r  i 

lib 

SOU77CY1 

116 

S0077CY1 

117 

SOU77CY1 

l  la 

SOU77CY1 

119 

SOoTTCYl 

120 

SOU77CY1 

1Z1 

S0077CY) 

122 

SOU77CYI 

123 

SOU77CYI 

124 

S0077CY1 

129 

SOU77CY1 

126 

SOU7  7CY  1 

127 

SOU77CYI 

12b 

S0077CY1 

129 

S0O77CY1 

130 

SOU77CY1 

131 

SOU77CY1 

132 

S0U77CY1 

133 

SOU 7  TCY 1 

134 

SOU77CY1 

135 

S007  7CYI 

136 

SOU  7  7  C  Y 1 

137 

SOU77CY1 

13a 

SOU77CY 1 

139 

SOU77CYI 

140 

SOU77CY 1 

161 

SOU77CY1 

142 

SOU77CY1 ' 

143 

SOU 7 TCY l 

144 

SOU77CYI 

145 

50U77CYI 

1*6 

S0077CYJ 

147 

SOU77CY1 

Ha 

SOU 7 TCY l 

149 

S0U7 TCY I 

150 

SOU77CY 1 

191 

SOU77CY 1 

152 

SOU77CY l 

193 

SOU T TCY 1 

154 

SOU77CY1 

195 

S0U7  TCY  l 

156 

SOU77CYI 

197 

79 


1235 

CONTINUE 

SOUTTCYl 

ise 

c  >> 

SOU77CY 1 

ISO 

UJ6 

Continue 

SOUTTCYl 

160 

C  oha*  p tc  foue  of  phase  sniff  Ptx  seumEnt 

OENSY 

la* 

PNAAaP (  1 ) 

OENSY 

105 

PMlNaPMAA 

UENSY 

186 

00  SO  1*1 .HUT 

OENSY 

187 

PM1N  *  A«IN1 (PMIN.P(  i  )) 

OENSY 

188 

so 

PMAA  a  ANAAl (PNAA.P(  1  )l 

OENSY 

18* 

UP*PMAA-PMlN 

OENSY 

1*0 

IF  (LAG.LT.IO)  «Hl f E  (6.9l)  TITLE 

SOUTTCYl 

161 

If  (LAO.OE.IO)  AMITE  (60203) 

SOUTTCYl 

162 

*163 

fOMNAf  (  mu 

SOUTTCYl 

163 

51 

f  VIMHAI  (  mi  .29A.20A4) 

OENSY 

192 

iwie«i 

OENSY 

1*3 

If  (NMX.uT.12a)  1M 1 E*2 

OENSY 

196 

OO  52  J*1.NPY 

UENSY 

19S 

Aja  (NPY-J)  •  NPA 

UENSY 

196 

00  53  1*1«nPa.IMT£ 

UENSY 

197 

93 

IP(1)*10.0*(1.0-(P( 1*KJ)-Pm1N)/UP> 

OENSY 

198 

52 

■Ml Tc (6.94)  ( If*  ( 1  >  .1*1  .NPA  •  1H  1 E) 

OENSY 

199 

94 

F  OmMA  r ( 2* . 1 30 1 1 ) 

OENSY 

200 

*M 1 f  E (6 • 95 )  HH1N.MMAA.UP 

OENSY 

201 

95 

fUHHAt  (  1  JHIiMlN  VALUE  1S.E19. 7.9A.12HMAA  VALUE  I5.E19.7.9A. 

OENSY 

202 

13  7n  NOHMAL121NG  F  AC  T  OH  FOP  AbOvt  Hl.0  I 

IS  .E15.T) 

UENSY 

203 

MEIOHn 

UENSY 

20* 

C  *1.5-1  MOU  6  N022LES  SPLINE  UulA  Fmon  F  iLE 

1* 

OENSY 

205 

»oo 

MEAOlIf .1*00)  TILE 

OENSY 

206 

1*00 

FOMMAf ( 12 A*) 

OENSY 

207 

HEAOdF  .1*01)  N*.M* 

OENSY 

208 

1*01 

f OMMAf (16191 

OENSY 

209 

PEAOdf  .1*02)  A*.Y*.2*.C* 

OENSY 

210 

l*u2 

FOMHAT (9E16.6) 

OENSY 

211 

00  <01  1*1.12 

OENSY 

212 

*01 

lULEdxriLEd) 

OENSY 

213 

00  *02  l*lJ.2t) 

OENSY 

216 

*02 

ri  TLt  (  X  l  atfCANM 

OENSY 

215 

**M* ( 1) 

OENSY 

216 

H*r*d.«)-r*(  i.u 

OENSY 

217 

MOCL  *— MrtO*G0C*Z5LAb 

UENSY 

218 

OX*XL£n/nPa 

OENSY 

219 

OYaTLEN/ (NPY*(NSYM*l 1 1 

OENSY 

220 

00  * 1 0  1*1. NM* 

OENSY 

221 

A*OX* ( 1-.5I 

OENSY 

222 

UO  *10  J*l..vPY 

OENSY 

223 

S«  OV* (0— .5)  -  (YLEN-8.)  /  2. 

OENSY 

226 

CALL  M0SN6<X.S.0P) 

UENSY 

225 

*10 

P ( l ♦ ( J— l ) *NPX )  «  OP 

OENSY 

226 

UO  TO  1Q00 

SOUTTCYl 

166 

ENO 

UENSY 

228 

10.  SUBROUTINE  FOURT 


a.  Purpose  —  Subroutine  FOURT  performs  a  forward  or  backward  Fast 
Fourier  Transform  on  any  multidimensional  complex  array  by  efficiently  per¬ 
forming  the  summation. 
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±27rimn/N 

G 


(39] 


80 


The  transform  pair  that  needs  to  be  evaluated  is 


and 


F(s) 


f(x) 


f(x)e 


2irixs 


dx 


F(s)e 


-2irixs 


ds 


« 


To  digitally  evaluate  an  integral,  the  continuous  form  of  an  integral  must 
be  changed  to  its  discrete  form.  For  example,  * 


G  = 


gfx)  dx  =>lim 
M-kd 


(• 


b.  Relevant  formalism  --  Assume  that  all  the  intervals,  AX  ,  are 

n 

chosen  to  be  equal  and  that  the  infinite  sum  can  be  approximated  by  a  finite 
sum.  Then, 


(J 


or 


G  »  AX 


(A 


To  evaluate  Equations  (40)  and  (41)  by  the  approximate  form  (Eq.  (44)), 
assume  that  the  function  f(x)  is  spatially  bounded  in  0  <x  <  2L  and  that  it 
is  a  band- limited  function  so  that  F(s)  is  confined  in  the  region  -B<S<B.  To 
perform  either  a  backward  or  forward  Fourier  transform,  the  functions  f  and  F 
should  differ  in  form  only  by  the  sign  of  the  exponent.  Therefore,  the  prop¬ 
erties  of  F  must  be  evaluated  so  that  its  region  can  be  changed  to  0<S<2B. 
This  is  easily  done  by  replicating  the  function  f(x)  so  that  it  is  periodic 
with  period  2L.  This  will  not  change  the  value  of  f  in  the  region  of  interest 
and,  by  proper  choice  of  N,  will  return  the  desired  function  F. 


A  sampled  function,  f  ,  can  be  analytically  represented  by  a  Dirac  delta 
function: 


N-i 


f 

n 


2L 

a  (x-nAx)  with  Ax  =  — * 

N 


(45) 


A  replicated  function  can  be  represented  by  a  convolution: 


n=-» 


Therefore,  a  sampled  and  replicated  function  is  represented  by: 


(46) 


t  (x)  *  V]  5  (x-nAx)  ®^5(x-nNAx) 


(47) 


A  A 

The  Fourier  Transform  F(s)  of  f(x)  is 


N-l 


'F  (s)  *  F  |f[«  F  fn  5  (x-nAx)  F  {  T]  5(x-nNAx) 

( n*0  1 


rm«-« 


(48) 


by  the  convolution  theorem.  Since 


(49) 


XJ  5  (x-na)  =  ~  2 


«  2rin— ■ 


n=-a. 


n»-» 


one  finds , 


„  N- 1  2risnAx 

F  (s)  a  V  v 
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00 

£- 4 
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(SO) 


Rearranged  this  gives 
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(SI) 


Recalling  Equations  (-10*)  and  (44)  ,  define 


F  *  Ax  y  fe  *  F  .. 

n  n  n+N 

n=0 
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(52) 


Then 
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m=-°° 


t  (s)  * -  >  F  <5{s--m 

N(Ax)2  '  NA> 


(53) 


Since  F  *  F  ^  ,  one  can  rewrite  the  above  as  a  replication  for  every  N 
m  m+n 

point. 


f  (S) 


5Tn72liF»  s(’-.4  L  4  s) 

m*0  n»-»  '  ' 


(54) 


Therefore,  by  replicating  f(x)  with  period  2L,  F  is  periodic  with  period 
1/AX. 


83 


So  by  choosing  N  so  that  N/2L>2B,  rewrite  the  limits  for  F  as  0<S<_B. 
Since  N 

'  1,  n  =  k 


N-l 

,  _  1  2irim(n-k)/n 

5nk  lL£ 
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(55) 


0,  n  i  k 


invert  (52)  to  find 
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(56) 


Thus,  choosing  As  =  1/NAx,  the  transform  pair  becomes 
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(57) 


f 
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c~2  irimn/N 


( AxAs  =  -i-) 


(58) 


where,  with  N/2L  >_  2B, 

sents  f(x)  for  0<x  <2L 
—  n— 


F  represents  F(s)  for  0<S  <2B  (S 
m  r  v  -  m—  m 

(x  *  nAx) . 
n 


=  mAs) 


and  f  reore- 
n 


The  transform  pair  f  and  F  are  now  in  a  form  usable  by  the  Fast 
r  n  m 

Fourier  Transform  (FFT) .  The  FFT  evaluates  the  sum 
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N-l 
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k«0 


e*2irirk/N 


(59) 
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Following  Higgins  (Ref.'  9),  this  sum  can  be  split  into  two  sums  (choosing  the 
+  sign  in  the  exponent) : 
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(60) 

k=0 
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(keven) 

(kodd) 

k  *  0,  1,  3,  5,  ...  j  *  1  (61) 


then 
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(62) 


Letting 


B 
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and 


k=0 


_  4fllrk/N 
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(65) 


(64) 


9.  Wiggins,  R.J.,  "Fast  Fourier  Transform:  An  Introduction  With  Some 
Minicomputer  Experiments,"  AJP,  44,  1976. 
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A  can  be  written 
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At 


Br  + 


r  27Tir/M 
Lr« 


(65) 


Define 


«  =  e2fli/N 


(66) 


Then, 
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B  +  C  + 
r  r 


(wn)r 


By  letting  r  —  r  +  M/2: 


(67) 


(68) 


Therefore,  At  can  be  evaluated  by  doing  two  sums,  each  containing  N/2  terms. 

However,  these  sums  need  to  be  performed  for  only  half  the  r's  ^CKr^ j  since 

A  +  M/2  is  found  using  the  two  sums  used  in  the  evaluation  of  A  Bv 
r  r 

initially  forcing  N  to  be  a  power  of  two  by  completing  the  array  to  be 
transformed  with  zeros,  continue  to  divide  each  successful  sum  into  two, 
until  a  "sum"  is  reduced  to  just  one  number,  taking  care  to  note  that  N 
changes  with  each  division.  When  using  the  FFT,  care  must  be  taken  to  scale 
the  output  correctly  since  the  FFT  evaluates  only  sums  of  the  form 


A 


r 


n=0 


£i2winr/N 


(69) 


and  as  can  be  seen  from  Equations  (58)  the  Fourier  Transforms  contain  Ax  or 
As:  If  only  forward  then  backward  transforming  is  done,  it  is  sufficient  to 
divide  the  final  answer  by  M  for  each  dimension  as  is  indicated  by  the  last 
part  of  Equation  (58) . 
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Note  that  when  the  data  are  returned  from  the  FFT  the  first  data  point 
is  either  the  x  *  0  or  the  s  *  0  point.  To  see  the  actual  frequency  space 
pictures,  assume  a  two-dimensionai  case.  An  isointensity  printer  plot  of  FFT 
output  in  frequency  space  might  look  like  that  shown  in  Figure  22. 


2B 


figure  22.  Example  of  isointensity  printer  olot  of  FFT 
outnut  in  frequency  snace. 

To  see  the  ~B  to  +B  version,  the  adjacent  cells  shown  in  Figure  23  must 
be  added  to  Figure  22. 

The  subroutine  FOURT  computer  printouts  follow. 


Figure  23.  -B  to  +B  version  of  isointensity  printer  plot 
of  FFT  output  in  frequency  space. 
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SUBROUTINE  FOURT  76/176  0PT»1  FIN  4.6+452 


04/27/79  12.23.47 


SUdHOUUNt  FUUHI  (UATA.MAH.ivN.lSlON) 

KUUH  f 

2 

<:••• 

foumt 

J 

c 

Th£  CUQLEY-TUREY  F  AS  T  POUHltH  THANSFUNM  IN  uSASl  BASIC  FUNTMAN 

FOOMT 

4 

c 

THaNSFOHM(M,R2....>  *  SOMtUAI  A  ( J1  fJ2.  .  ..  )  USIliN*2»**l»SUKr  (-11 

FOOMT 

6 

c 

•1  IJ1-1>*(A1-1  l/'VNT  1)«<J2- 

1 ) • (R2« 1 1 /NN (2) ....)))•  SUMMED  FOM  ALL 

FOUNT 

6 

c 

Jl*  M  BETaEEN  1  ANU  NNI|I 

<  02 1  R2  BE ( *EEN  I  ANO  NN(2).  ElC. 

FOOMT 

7 

c 

THEME  IS  NO  LIMIT  TO  rut  NuHOtN  OF  SUBSCH1PTS.  DATA  IS  A 

FOOMT 

B 

c 

MULTIDIMENSIONAL  COMPLEX  AMHAY  VHUSE  NtAL  ANO  IMAGINAHY 

FOOMT 

c 

PANTS  AML  AOmACENT  IN  STuHAGE*  SUCH  AS  FOMfHAN  (V  HLACtS  1  HEM. 

FOOMT 

10 

c 

IK  ALL  IMAGINAHY  MAM  TS  AML 

ZENO  (OATA  AME  DISGUISED  MEAL).  SET 

FOOMT 

11 

c 

IFoMm  TO  ZENO  TO  CUT  THt  NUNN l NO  riHt  BY  UM  TO  FOMTY  MEMCLNI . 

FOUH  r 

12 

c 

0 1 M£MM I SE  r  IF  OWM  ■  *1.  The  LENGTHS  UF  ALL  01MENS10NS  AMt 

FOOMl 

13 

c 

STuMCO  IN  AMHAY  NN*  OF  LENGTH  N01M.  Ih£Y  MAY  ML  ANY  POSITIVE 

FOUNT 

14 

c 

iNIEGtWSt  fHO  TnE  MMOGHAM 

nuns  fasten  on  composite  integers,  ano 

FOUNT 

IS 

c 

ESPECIALLY  Fast  ON  NUM8LMS 

MICH  IN  KACtOMS  OF  T«0.  ISIGN  IS  *1 

FOUNT 

1* 

c 

ON  »1.  IF  A  -1  TMANSFOMM 

IS  FOLLOMEU  BY  A  *1  ONE  (UM  A  *1 

FOOMT 

IT 

c 

BY  A  -1)  THE  ONIGlNAL  DATA 

meappeam.  multiplied  by  ntot  (*nniu* 

FOUNT 

18 

c 

NN(2>*...).  THANSFOHM  VALUES  AMt  ALaAYS  COMPLEX.  ANO  AML  MtfOMNEO 

FOUNT 

19 

c 

IN  AMHAY  OATa.  hEPLACINU  1  HE  INMuT.  IN  ADDITION*  IK  ALL 

FOUNT 

20 

c 

DIMENSIONS  AmE  NOT  PUSEMS 

UK  lao.  AMHAY  «OMK  MOST  BE  SUPPLIEO. 

FOUNT 

21 

c 

complex  of  length  euoal  ro 

T HE  LAMGEST  NON  2»»R  DIMENSION. 

FOUNT 

22 

c 

OTHEMalSE.  MeMLACE  »uhk  by 

ZENO  IN  THE  CALLING  SEGUENCE. 

FOUNT 

23 

c 

NOMMAL  FOMTHAN  OATA  UHOEMluG  IS  EAPEC TED.  F INST  S08SCHIMT  VAHYING 

FOUMt 

24 

c 

FASTEST.  ALL  SOBSCM1PTS  BEGIN  AT  ONE. 

FOUNT 

25 

LEVEL  2.  DATA 

FOUNT 

26 

DIMENSION  DATA (NAM) »NN<2) . 

lb  ALT ( 32) «  aOMK (300) 

FOUMT 

2T 

N01M«2 

FOUNT 

2B 

IFQHMa.l 

FOUNT 

29 

■1*1.00 

FOUNT 

30 

■Mai .UO 

FUUMT 

31 

■STPMal.OO 

FOUNT 

32 

■STMl»l .00 

FOUNT 

33 

r»OMIa6.2BJlBSJO/' 

FOUNT 

34 

iFiNoiM-noao.ui 

FOUNT 

35 

l 

NTOT*2 

FOUNT. 

36 

OO  2  IOIMsI.NUIM 

FOUNT 

37 

IF  (NNUUlMJ  )  V2U. 020.2 

FOUNT 

38 

2 

N  To  T  *N  TOT  *NN ( IOIM) 

FUUHT 

39 

NH1*2 

FOUNT 

40 

00  010  lUlMal.NUlM 

FOUNT 

41 

N*NN( 10IM) 

FOUNT 

42 

FOUNT 

43 

IF(<V-l)920.9u0.S 

FOUNT 

44 

5 

N«W 

FOUNT 

45 

NT«0«NPI 

FOUNT 

46 

IFal 

FOUNT 

4T 

I0lV*2 

FOUNT 

48 

10 

luuOTaM/lOlV 

FOUNT 

49 

IMEMaM-IOIV«lOOOI 

Fount 

50 

iF(iooor-ioiv)so.ii.n 

FOUNT 

SI 

11 

IK (IMEMI20. 12.20 

FOUNT 

S2 

12 

n  r  *o*n  r  ao*n  r  wo 

FOUNT 

53 

MalOUUT 

FOUNT 

54 

Go  TO  10 

FOUNT 

S5 

20 

IUlV*3 

FOUNT 

56 

JO 

lUOOT *M/ 10 I V 

fount 

67 

lM£MaM-|OIV»lOUOr 

FOUNT 

58 

IF UOUUT-IOivlGU.Sl* Jl 

FUUHT 

SO 

31 

IF ( IMEMI ■0*32*40 

FOUNT 

60 

32 

IKACTUFlalOlV 

FOUNT 

61 

IF  a  IF  •  1 

FOUNT 

62 

M»I OUO T 

FUUMT 

63 

GO  TO  30 

FUUHl 

64 

*0 

I0iV*iUIV«2 

FOUNT 

65 

GO  TO  30 

FUUHT 

66 

*u 

IF ( IMEMI GO • S 1 .GO 

FUUMT 

67 

SI 

NT«0«NTao*Nta0 

FUUMT 

66 

GO  TO  TO 

FUUHT 

6* 
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60  IFaCTUFIbh 

TO  NOi>i2aNNia<HF2/NT«u) 

lCASt«l 

IF<Il)IH-*>  71.90.90 
7  1  If  I  IFORMI  72.  72,90 

72  ICAS6.-2 
IF<IUIM-1)73.73.90 

73  ICAStaJ 

If  (N  f  aO-HH  U  90  «  90  ,  7A 
7*  ICASfca* 

NTaQaNTaO/2 

*9* */£ 

NH2ANR2/2 

NTOTaNTOT/2 

I«3 

oo  au  ja^.Nfur 
OATA  (<JI  aUATA  ( 1 ) 

90  I*l»2 

90  llNNOaNNl 

If <ICASE”2> IU0.9S.100 
9b  HNN6*NN0A< l*NHHt»/2> 

100  If  (NT«O-<#*U000*«0O>U0 

I 10  NH2F«FaNH2/2 

0«l 

00  150  I2»l  .NP2.NON2 
If  (J-I2T  120. 130.130 
120  UMAAal2.M0Ni-2 

00  125  l la  12 . 1 1MAA.2 
00  12b  IJaU,NT0I.N*»2 
OJ«d«I3-12 
TErtMHBOAIAUJ) 

TEMP laOA 7  A ( 1 3» 1 ) 

OArA(13laOArAUJJ 

OAT A ( I3« 1 ) *0ATA(JJ*1) 

0A1AU3>*TEHHR 
12b  OAT A ( J3* 1 1 artMP l 

13U  nbnH2hf 

lao  If U-Hllb«,ls«.lAb 

1 Ab  jag-* 

Han/2 

If tH-NONC) ISO, 140.1*0 
ISO  jaj.n 

N0n2  T  »N0N2 «nGn 2 
IHANaN  T aU/NNl 

310  If ( IHAH-2) ISO. JJO, 320 
320  IdAMalPAM/a 

00  TO  310 

330  uo  3*0  1 1  a  1  .  1 1 WHO « 2 

00  340  J3*U,N0N2.N01 
oo  iao  lUajj.AMur.mjH^r 

<2*A  l  »N0i.2 

TtrtOH*0AlA(A2> 

TfcHHl  a(}A  I A  < A2*  l  > 

OAT  A  t  A2>  »OATA  (KD-rtiaoo 
OAT  A (A2* 1 ) ay A  Ta ( A 1 . 1 ) *TEHN1 
OAT  A  trt 1 ) *0A TA (K 1 ) * TftHF>H 
3A0  OAT A(K1*1 ) aOAT A1K1 <1 ) *TEM01 

3bo  MMAASI0ON2 

360  If (HNAA-NN2HF) 3/0.600.000 
370  ^MAAaMAAU (N0N2  T .MHAA/2) 

If <MMA4*N0N2) A0b.*0b.360 
360  THfc  T  Aa-  T *0F> 1  »f  LOA  t  ( N0N2 ) /F  1.0A  I  ( *»HMAA ) 
If (IblONIAOO . 390.390 
390  THETAa-TntTA 

AOO  aMaCOS I  fNfcT  A) 

alaSlN  <  The  I A1 
*STRMa»2.*aI*aI 
aSIAIaj, •**•» i 

♦  Ob  00  570  L*N0N2 ,UHAA , N0N2 T 

H»C 

If (hha*-hOn2> A2g,*20.AlQ 


f  OUST 

to 

FOUNT 

T 1 

FOUNT 

7  £ 

FOUNT 

73 

FOUNT 

Ta 

FOUNT 

Tb 

FOUNT 

T6 

FOUNT 

T7 

FOUNT 

T  6 

FOUNT 

T9 

FOUHT 

60 

FOUNT 

61 

FOUNT 

02 

FOUNT 

83 

FOUNT 

8A 

FOUNT 

65 

FOUNT 

66 

FOUNT 

67 

FOUNT 

66 

FOUNT 

69 

FOUNT 

90 

FOUNT 

»l 

FOUNT 

92 

FOUNT 

93 

FOUNT 

9A 

FOUNT 

95 

FOUNT 

96 

FOUNT 

9T 

FOUNT 

96 

FOUNT 

99 

FOUNT 

100 

FOUNT 

101 

FOUNT 

102 

FOUNT 

103 

FOUNT 

10a 

FOUNT 

10b 

FOUNT 

106 

FOUNT 

107 

FOUNT 

106 

FOUNT 

109 

FOUNT 

110 

Fourt 

111 

FOUNT 

112 

FOUNT 

113 

FOUNT 

1  1 A 

f'uuht 

US 

FOUNT 

116 

FOUN1 

117 

FOUNT 

116 

FOUNT 

119 

FOUNT 

120 

FOUNT 

121 

FOUNT 

122 

FOUNT 

123 

FOUNT 

12A 

FOUNT 

12b 

FOUR  T 

126 

FOUNt 

127 

FUUOt 

126 

FOUNT 

129 

FOUNT 

130 

fount 

131 

FOUNT 

132 

FOUNT 

133 

FOUHT 

13a 

fount 

135 

FOURT 

136 

FOUNT 

137 

FOUNT 

136 

FOURT 

139 

Fount 

'  IAO 

41U 

*2N*WN«*N-*  1  •*  I 

FOUNT 

141 

MIM.  l 

FOUNt 

142 

*3N**2N4*H-*2 14*  ( 

Fount 

143 

*3l»»2N4*l.*21»*N 

FOUNT 

144 

*2u 

OU  530  11*1.11HN<»«2 

FOUNT 

145 

00  530  J3all.NOM.NPl 

FOUNT 

146 

KNlNaj3*lf*AM*M 

Fount 

147 

IF l HM AA-NUN2 ) 430 . 430 . 440 

FOUNT 

146 

«30 

KM1NSJ3 

FOUNT 

140 

*40 

A01F*1NAN4MNAA 

FOUNT 

150 

♦so 

*SrEP«44«OIF 

FOUNT 

151 

OU  520  AI*AH1N*nT0T  .rtSTtP 

FOUNT 

152 

*2«Kl«*0lf 

FOUNT 

153 

H3««2*R01F 

FOUNT 

154 

K4«K3«K01F 

FOUNT 

155 

IF 1HHAA-NON27 460.460.460 

FOUNT 

156 

»6w 

UlN*OATA<Kl)  *UAIA(*2) 

FOUNT 

1ST 

UUaOATA(«t*l)  ♦0ATA(K2*1) 

FOUNT 

156 

U2N*0AT  A IK3) *OAT  A (K4) 

FOUNT 

159 

u21aUAT  A IK3* 1 ) *0A! A  1X4*1 > 

fount 

160 

U3N*0ATA IKi 1  ~0A  TA  <K2) 

Fount 

161 

U31*0ATA (Kl* 1 )  *i)A  T  A  1*2*  1  > 

FOUNT 

162 

IF1ISIGFU4  7U.4/S.4/S 

FOUNT 

163 

470 

U4NaOATAlK3*l)-OATA(K4.1) 

Fount 

164 

041*0 AT A  (K4) *04 1  A (K3I 

FOUNT 

165 

OU  TO  510 

fount 

166 

475 

04rtaUArA(K4*D-UATA(K3*l> 

Fount 

167 

U4  I  *U  A  T  A  1 A  3  )  *U  A  T  A  l  A  4 ) 

FOUNT 

166 

GO  TO  510 

fuunT 

169 

*au 

T2Na*2W*U*TA »A2) -»2l*UA I A Ia2» 1 1 

Fount 

1  TO 

r21«*2N4UATA<A2»l) .J214UAIAIAC) 

fount 

171 

T3N**N«»t)ATA  i  A3I  -*  1*0  AT  A  (A  J*  1 ) 

FUUNT 

172 

tji*»h«uata iaj*d •  *  i #u a  r  a ir,j) 

FOUNT 

173 

T4MaMjH4UArA(K«l •flji*UATA  <A4*t  1 

FOUNT 

IT4 

T4l*ajH40AlAlK4.1) **31 *041 a(A4> 

FOUNT 

175 

U1M*UAT*IM)  •  r<fH 

FUUNT 

1  /6 

U 1 1 *04  T  A ( K 1 • 1 ) •  T  2 1 

FOUNT 

177 

J2M* [ JN* I4H 

FOUNT 

176 

U21*f 31* '41 

FOUNT 

1  79 

U3M*0AT*IA1>*T2N 

FOUNT 

160 

U3l*UAfA(Ai*lJ*f21 

i-uunr 

161 

IK ( 151G'.> *00.500.500 

FUUNT 

162 

4Ju 

U4H*T4l-l*l 

FOUNT 

163 

g4i*T*«- f  JN 

FOUNT 

164 

GO  TU  510 

FOUNT 

165 

50o 

U*K* (41- f  31 

FOUNt 

166 

041* T JH-I4H 

FOUNT 

167 

5lU 

0ATA1A1) *U1H*U2N 

Fount 

166 

OAl  AlAl*U  aull«u21 

FOUNT 

169 

DATA (K2 ) *UJM  *U4W 

FOUNT 

190 

0AT41A2*l>*U3I*U4l 

FOUNT 

191 

UAT41A3>aUlM-U2N 

fuunT 

192 

OAIAIA3*11*011>U21 

FOUNT 

193 

OAT A  1 A4 ) *U3N*04H 

FOUNT 

194 

MU 

UAT  A 1A4*1 1 *U3l*U4l 

FOUNT 

195 

AMIN*** 1 AN1N-J3) *J3 

FOUNT 

196 

KOlFaASTtP 

FUUNT 

197 

IF (K01F-NP2) 450.530.530 

FOUNT 

196 

MO 

CUNTlNUt 

FOUNT 

199 

***n*a-n 

FUUNT 

200 

IF  1 151(H) 540.550.550 

FOUNT 

201 

54g 

Tt  N>xa.H 

FOUNT 

202 

wMa*.  1 

FUUNT 

203 

•la-TtHP* 

FOUNT 

204 

GO  TO  550 

FUUNT 

205 

Mo 

T6nnn**n 

FOUNT 

206 

**a*l 

FOUNT 

207 

*  la  re*P* 

FOUNT 

200 

MU 

IF IN-CHAAl 505. 565.410 

FOUNT 

209 

565 

TEaNNaaN 

FOUNT 

210 

«*a*H**5 1 N*“* 1 4*S  TP  I »•* 

FOUNT 

211 

90 


S7o 

ala«ia*SlPW.|fcMpN4*SfPl.aI 

FOOPT 

212 

IPANaJ-lPAN 

FOUNT 

213 

MM. *AaMMAA»MMAA 

FOUNT 

214 

bO  TO  JOO 

FOUMT 

21b 

600 

IF  INfaO-'MPi)  oOb.  /QO.  /  UU 

FOUNT 

21b 

60b 

IFPlaN0N2 

FOUNT 

217 

IF  *  1 

FOUNT 

21B 

NPIfIF  aNPl/2 

FOUNT 

219 

610 

lFP2aIFPl/lFACTlIF) 

FOUNT 

220 

jl*Nte*NP2 

FOUNT 

221 

IFIICASE-J)bl2.all.bl2 

FOUNT 

222 

611 

JlHNU«lNP2.1FPl)/2 

FOUNT 

223 

J2bTPaNP2/ IF  ACT ( IF  1 

Fount 

224 

JlM024lJ2STP.IFP2>/2 

FOUNT 

22b 

0I2 

J2NlN«l»lFP2 

FOUNT 

22b 

IF  ( IFP1  — <P2>  01b.040.04u 

Fount 

227 

6l3 

00  bjb  J2«J2Mll'».  IFPl.  IFP2 

FOUNT 

22S 

rMtfA»-r«0Pl«Fl.l)AfU2-l)/FU0AI  (NP2) 

FOUNT 

229 

IF  I  ISlCi*)  02b.020.o2U 

FOUNT 

2J0 

olio 

riit,r4««rn£TA 

F  OUN  r 

2J1 

6M 

SlNTMObii.  (  Trlt  TA/2.  ) 

FOUNT 

2J2 

•  bTiAM*-2.»bliorM4SINrrt 

FOUNT 

2JJ 

»bf<»I«SIN«1rie.TAI 

FOUNT 

2J4 

aNaabTPN.l . 

FOUNT 

2Jb 

alaaSTP  1 

FOUNT 

2  Jb 

JlNlN»J2«iFPl 

FOUNT 

2  J  7 

00  bjb  JlaJlMlM.JlMnG.  IF*! 

FOUNT 

2J8 

IlMA*aJl»l 1HNS-2 

FOUNT 

2J9 

00  bJU  1 1  *01 , 1 I M  AA  «  2 

FOUNT 

240 

00  «J0  IJall.NTOT  «NP2 

Fount 

241 

JjMAAa  I  J.  IFP2_NP  1 

FOUNT 

242 

00  OJU  JJal3,JJMAA,.'tPl 

FOUNT 

243 

rEMPNaOAU(J3> 

FOUNT 

244 

0A7AIJJ)  aOATAIJJI  aarf-OATAl  Jj»l)  •«! 

FOUNT 

24b 

bJo 

04TA«J3.l)aTtMHH«»I.0ATAUJ.l)*»H 

FOUNT 

24b 

TEnPNa«N 

FOUNT 

24 7 

»Ma»H»aS  r  PN-a 1 *aS  T  P l »*N 

FOUNT 

24a 

6Jb 

aIaTfcrtPM4AStPl.aiav.STPM««l 

FOUNT 

249 

040 

THETAa-TaOPl/FLOAT  1  IF  ACT  IIMI 

FOUNT 

2b0 

IF ( I SION ) obO  *  04b. 04  b 

FOUNT 

2b  1 

04  b 

THETA*. MET A 

FOUNT 

2b2 

ObO 

SI^TnaSINI TMt Ta/2. ) 

FOUNT 

2b3 

*SrP*4-2.ablNTh4blNTM 

FOUNT 

2S4 

aSTPIaSli'.I  TnETA) 

FOUNT 

255 

KSTEPa2*N2  IFACT  (  IF  1 

FOUNT 

2bb 

KNANG*KSfEPa(IFACr(IFI/2J •! 

FOUNT 

257 

00  OV8  Il*l.UHNl»»2 

FOUNT 

2ba 

00  090  IJaU.NT0l.NP2 

FOUNT 

2b9 

00  OVO  KNlNal .KWANS.KSTEP 

FOUNT 

2bO 

JINAAal J.JIVNtt-lFPl 

FOUNT 

2b  1 

00  OaU  JlalJ.JlMAA.IFPl 

FOUNT 

2b2 

JjMAAaj 1 « I FP2-NP 1 

FOUNT 

2bJ 

00  000  JJaJl • JJMAA.NPl 

FOUNT 

2b4 

J2NAAajJ.IFPl-IFP2 

FOUNt 

2bb 

K*«MIN*(J3-Jl» 1J1-IJ)/1FaCI( IF ) J/NPIMF 

FOUNT 

2bb 

IFIKM1N-D0bb.09b.00b 

FOUNT 

2b7 

05b 

SUMNaO. 

Fount 

2ba 

SOM  (  au  • 

FOUNT 

2b9 

00  OOU  J2aj3.J2MAA.lFP2 

FOUNT 

270 

SOMMabUMM.O A T A  1 J2 ) 

Fount 

271 

000 

SUMIabUM I *0 A  T  A ( J2* 1 ) 

FOUNT 

272 

VOMK (K) aSOMM 

FOUNT 

2  7  J 

«ONK!K*l)aSOMl 

FOUNT 

2  74 

SO  TO  oau 

FOUNT 

27b 

00b 

K CON J«K *2*  <  N— KM IN*1) 

Fount 

27b 

J2aJ2MAA 

Fount 

277 

SOMPaOA  T  A  I J2 ) 

fount 

278 

SOM I aO AT A  I J2* 1 ) 

fount 

279 

OCOSNaO. 

FOUNT 

280 

OU)Sl»Q. 

fount 

281 

J2aJ2-IFP2 

FOUNT 

282 

670 

TEMPpaSUMM 

FOUPt 

263 

TkrtP 1«S061 

FOUNT 

26* 

SUMS* 1 WOMN*bUMM-OLUSH*UA  f  A (02) 

FOUNT 

265 

SUM I a  r *OSN*SUM 1 -ULUS 1 *0  A  7  A l 02 ♦ 1 ) 

FOUNT 

266 

ocub««r£HPH 

FOUNT 

26  7 

olusistempi 

COUNT 

266 

J2sJc-IFM2 

FOUNT 

269 

IF < J«-J3I 6/6.675.6/0 

COUNT 

290 

6/b 

TEMPMa*NaSuMH-OCUSH*0A 1  A l J£ ) 

FOUNT 

291 

TEHHl«6l»bUMi 

FOUNT 

292 

»0M*  (Ms  T  EMPh-  1  £MH  I 

FUUNT 

293 

HONK (ftCOMU) aTEMPW*TtMPl 

CUUNT 

29* 

7kMI»HSSK»SUMl»0(.USl«0AI  At  J4»i) 

FOUNT 

29b 

TtHPl«al*SUMH 

FOUNT 

296 

aOMK  <K« 1 ) aTtMPW* f  tNP I 

COUNT 

29  7 

SUNK ( KCUMU* list  t NPN- r EMM  I 

FOUNT 

296 

660 

CONTINUE 

FOUNT 

299 

IF  (Km{N«1 I  66b • 66b >666 

FOUNT 

300 

oab 

*MaHbTPM*l . 

FUUNT 

301 

alaabTPI 

Fount 

302 

60  To  690 

FOUNT 

303 

s«6 

TEMPMsaN 

FOUNT 

30* 

sHssmssS  r  Pk-s 1  *wST  p 1 *aN 

FOUNT 

30b 

»IsTtMPW«siTPl»sl*»srPW»sl 

FOUNT 

306 

690 

T*OMMs«N*wM 

FOUNT 

307 

IF ( l CASE* 3 >  692,691 ,692 

FUUNT 

308 

691 

IF (IFPl-NP2)09b,692.692 

COUNT 

309 

692 

*»1 

COUNT 

310 

I2MA*sI3*NP2-NPJ 

FOUNT 

311 

00  693  I<i*I3«  liMAA.NPl 

FOUNT 

312 

D A  T  A ( 1 2  J *aONK ( K ) 

COUNT 

313 

0ATA(I2*lls,,OMH(K*lJ 

FOUNT 

31* 

693 

***♦2 

FOUNT 

315 

60  TO  696 

FOUNT 

316 

69b 

j3MAAaI3«IFP2-NPl 

FOUNT 

317 

00  697  03aI3.U3NAA.NPl 

FOUNT 

318 

J2MAAao3*NP2*'U25  TP 

FOUNT 

319 

00  697  U2«UJ,U2MAA  ,U2S  TP 

FOUNT 

320 

J1MAXsU2*U1H62-1FP2 

FOUNT 

321 

U1CNJsj3«U2HAX*u2STP-U2 

FOUNT 

322 

00  697  U l *  J2 »U IMAX , 1FP2 

FOUNT 

323 

*»l«Ul-I3 

FOUNT 

32* 

UATAUl)ssOMMM 

FOUNT 

32b 

OAIA(Ul*l)a*UNH(K*l) 

FOUNT 

326 

IF (J 1-02 1697.697.696 

FOUNT 

327 

696 

OAT  A  (UlCNU)  aaOHft  (M 

FOUNT 

328 

0  A  T  A  ( J 1  C«  J  *  1 J  *-»0M  A  (6*0 

FOUNT 

329 

69  7 

J1CNJSU1CNU-IFP2 

COUNT 

330 

696 

Continue 

FOUNT 

331 

IFsIF.I 

FOUNT 

332 

IFP l  a  1FP2 

FOUNT 

333 

IF(lFPl-NPl)  706,700.610 

FOUNT 

33* 

700 

60  Tu  (900.800.900. 701 > .ICASt 

FOUNT 

33b 

r<n 

NHACFsN 

FOUNT 

336 

NSN*N 

FOUNT 

337 

TMfcTAs-TsOPl/FUOAT (N) 

FOUNT 

338 

IF ( ISIGN) 7 03. 702. 702 

FOUNT 

339 

7 02 

Trt£T  As-TiiCIA 

FOUNT 

3*0 

703 

b I N  T  HaS 1 n ( TntTA/2.) 

FOUNT 

3*1 

»STPMs-2.«SlNTH»blNTM 

FOUNT 

3*2 

»bTPlsblN(TMtTA) 

FOUNT 

3*3 

■MssS | PH* 1 . 

FOUNT 

3»* 

»  I  ana | P 1 

FOUNT 

3*b 

IM INaJ 

FOUNT 

3*6 

JMlNa2*NHAUF -1 

FUUNT 

3*7 

60  TO  72b 

CUUNT 

3*6 

710 

U*UH IN 

COUNT 

3*9 

00  720  1*IM1N,N(0T ,NP2 

FOUNT 

3S0 

SuMMalUAlAd)  *0A T A  ( j )  1/2. 

FOUNT 

3b  l 

SUM  I » (UA  T  A ( 1 • O »0A1 A(J*1) >/2. 

COUNT 

3b2 

0lF»a(0AIA(O-UA7A(J)  >/2. 

C  UUNT 

3b3 

rtlF  Ia(UAIA(l*0-UAf  A(J*1)  1/2. 

FOUNT 

3b* 
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TbMF>N*NN*SOMl  »*I*UlFN 

FOUNT 

356 

rtH*»  t «« i  »su«  i  -  «*»(j  if  * 

FOUNT 

36ft 

DATA  U  )  *5UMN.  TtMNM 

FOUNT 

35T 

OArAii*i)«oiFl*rtMi>i 

FOUNT 

356 

OA  f A  1 d) *5UMM- TEmHW 

FOUNT 

359 

UArA(j«i)«-oiF 

FOUNT 

360 

720 

j«o»NH2 

FOUNT 

361 

IMINalMlN*2 

FOUNT 

362 

JNlN*dMiN-2 

FOUNT 

363 

TEMNMaaN 

Fount 

36* 

ansaN*sSTHH-»l*aSTFl«BN 

FOUNT 

365 

.<IaTEMNH*aST7»l.«l*»5THN«Bl 

FOUNT 

366 

725 

IF  l  iMlN-OMlNT  710*  730.7*0 

FOUNT 

367 

730 

IF(ISIGN) 731.7*0.7*0 

FOUNT 

366 

7  Ji 

00  736  l*lMlr»...T0T.NN2 

FOUNT 

369 

735 

0 A  T  A l I ♦ 1 ) *-0  A T  A ( 1  *  1 1 

FUUMT 

370 

7*0 

N*'2*N*'2«r*P'2 

FOUNT 

371 

NtuT«FiT01 *NTOT 

FOUNT 

372 

JsnTOT* 1 

FOUNT 

373 

lMAXaNTOT/2*l 

FOUNT 

37* 

.7*5 

IM1N*IMAA-2*NMA1.F 

FOUNT 

3  75 

I* (MIN 

FOUNT 

376 

GO  TO  766 

FUUNT 

377 

750 

OA  TA  ( J)  a(JATA  (  Z  7 

FOUNT 

378 

l7ATA<J*l)a-OATAd*l7 

FUUNT 

379 

755 

I»l*2 

FOUNT 

380 

J»J-2 

FUUNT 

361 

IF ( I-JMAA) 760*760.760 

FOUNT 

382 

760 

OATA(J)»OATAIIM1N»-OAI AdNlN*l) 

FUUNT 

383 

0ATA(J*1)  aO* 

FUUNT 

38* 

IFlI-J) 770.760.760 

FUUNT 

385 

766 

L)  A  T  A  (  J )  *0  AT  Ad) 

FOUNT 

366 

OAT  A (J* 1 7 *0 A  T  A  ( 1  *  1 7 

FOUNT 

367 

770 

l»l-2 

FOUNT 

388 

jaj-2 

FOUNT 

389 

1FII-1M1N) 776.775.765 

FOUNT 

390 

7  76 

OA  T  A ( J  7 ajA  TAlIHlNJ.OATAllMlN.l) 

FOUNT 

391 

DATA ( J* 1 ) SO • 

FOUNT 

392 

iMAXalMlN 

FOUNT 

393 

GO  TO  7*5 

FOUNT 

49* 

760 

OA  T  A ( 1 ) *0 A f  A  l L  7 *OATAt27 

FOUNT 

395 

OAI A(2) >0. 

Fount 

396 

1.0  TO  '900 

FOUNT 

39  7 

600 

[F  d 1MNG-NF l ) 605.900.900 

FOUNT 

398 

606 

00  dOO  1  Jal  ,NT0r..NP2 

FOUNT 

399 

12MAA*1  J.NHd-.'lHl 

FOUNT 

•  00 

00  660  12*1 3. IdMAA.N^l 

FOUNT 

*01 

Irtll9al2*l  IMHO 

FOUNT 

*02 

lHAXal2*<9F*t-2 

FOUNT 

*03 

dNAX*2MJ*N*'l-lMl<'» 

FOUNl 

*0* 

IF(I2-137d20.620.610 

FOUNT 

*05 

610 

JHAXaoMAA.NKd 

FOUNT 

•  06 

62u 

IF(IOIM-2)650.65U.63O 

FOUNT 

*07 

630 

jsomaa.nmo 

FOUNT 

•  08 

00  6*0  1 »IMIN. (MAX .2 

FOUNT 

*09 

OATAd)  *OAT  A»J7 

FOUNT 

•  10 

OA T  A  1 1  *  1 7 *-0A T  A  Id* 1 7 

FOUNT 

•  11 

6*0 

J«0-2 

FOUNT 

*12 

650 

jajMAX 

FOUNT 

*13 

OO  660  (aIMlN.lMAA.NFO 

FOUNT 

*1* 

OATAd)  aOATAUl 

FOUNT 

*15 

OATAd*!)  *-0ATA(J«17 

FOUNT 

*16 

660 

Jad-NNU 

FUUNT 

*17 

900 

NMUSNMl 

FOUNT 

*18 

NM 1  ai9M2 

FOUNT 

*19 

610 

NNNEvaN 

FOUNT 

•20 

920 

CONT  lNtie 

FOUNT 

*21 

nCTUMi. 

FUUNT 

*22 

£N0 

FOUNT 

*23 
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11.  SUBROUTINE  FUHS 


a.  Purpose  —  Subroutine  FUHS  is  used  to  calculate  the  phase  change 
due  to  heat  release  as  the  molecules  in  the  lower  laser  level  decay  to  the 
ground  state,  assuming  supersonic  flow  and  that  the  heat  release  has  a  dis¬ 
turbing  effect  (not  major)  on  the  flow.  Figure  24  shows  the  subroutine  FUHS 
flow  chart. 


b.  Relevant  formalism  —  The  equations  used  are  based  on  those  by 
Biblarz  and  Fuhs,  (Ref.  10),  and  by  Fuhs  (Ref.  11). 


Initially,  it  is  assumed  that  the  continuity,  momentum,  and  energy  equa¬ 
tions  for  steady  flow  with  heat  addition  are  valid: 


Continuity: 

Momentum: 

Energy : 


V  •  (pu)  =>  0 
Du  ^ 

p - V  =  0 

Dt  P 


(70) 

(71) 

(72) 


These  are  linearized,  assuming 


p  =  0qo  +  p'  p  =  P  *  p' 


-»  A  „  A  t 
u  =  l  (U+u  )  +  j  v 


(73) 


resulting  in 

Continuity:  p^u'  +  p  ♦  Uo'  »  0 

®  X  oo  y  X 


(u'  s  — — u'  ;  etc.\ 
3x  / 


(74) 


(75) 


Momentum: 


jp.  uu;  *  p;  ■  o] 

)p  Uv'  +  p'  *  0 

v  «  x  y 


(76) 


10.  Biblarz,  0.  and  Fuhs,  A.  E.,  "Laser  Cavity  Density  Changes  with  Kinetics 
of  Energy  Release,"  AIAA  Journal,  12,  p.  1083,  August  1974. 

11.  Fuhs,  A.  E.,  "Quaside  Area  Rule  for  Heat  Addition  in  Transonic  and  Super¬ 
sonic  Flight  Regimes,"  AFAPL-TR-72-10,  Air  Force  Propulsion  Laboratorv, 
HfPAFB ,  Ohio,  1972. 


Energy : 


P~  U°°  ±/±.  _l£\  =  q 
>-l  3  \P*,  oJ 


(77) 


The  solution  is  then  found  by  using  the  potential  for  the  flow  as  done 
by  Tsien  and  Bieloch,  (Ref.  12),  resulting  in  the  following  equations  for  a 
heat  source  q  in  supersonic  heat  addition 


“  *  -  ^ 

(78) 

v'  *  ^jffi-<(x-6y) 

(79) 

o'-  ^ 

(80) 

»'  ■  - 4  <x-8!')  -  4  w  1  w 

(81) 

where 

x  ■  3y  Defines  a  Mach  line 

(32) 

6  *>/ M2-l 

(83) 

a  *  U/M  Speed  of  sound 

(84) 

« 

(85) 

For  volume  heat  addition  q  -*■  dq  »  h(x,y)dxdy,  and  the 
are  added;  for  example. 

effect  of  all  sources 

u'  »  Z^LzP-J ’jh(x,y)  dxdv  5  (x-6y) 

(86) 

=  llXlii  / h(x*6y)  sin  yds 

(87) 

12.  Tsien,  H.  E.  and  Milton  Beilock,  "Heat  Source  in 
of  the  Aeronautical  Sciences,  December  1949,  p.  ' 

a  Uniform  Flow,"  Journal 
’46. 
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where  the  integral  is  taken  along  a  streamline  (x  ~  By)  and  sinu  3  1/M.  S  is 
related  to  x  and  y  by 

S  3  x  cosy  S=y  sinu 

The  equation  for  density  change  is  therefore. 


(88) 


The  first  term  is  due  to  heat  addition  along  a  streamline  while  the  second  is 
due  to  the  wake  in  the  energy  release  region.  "Heat  addition  in  a  supersonic 
stream  causes  compression  waves  which  radiate  from  the  heat  release  region. 
The  waves  reflect  from  the  cavity  walls.  Downstream  of  the  heat  release 
region  is  a  wake.  Whereas  the  compression  waves  increase  gas  density  the  wake 
decreases  gas  density"  (Ref.  12) . 


The  heat  release  (h(x,y)  for  a  laser  can  be  written: 


h(x,y)  =  c 


/ 


NEP 


A I  (x',y)e 


•(x-xO/UT 


dx' 


(89) 


where  T  is  the  time  constant  for  the  depopulation  of  the  lower  laser  level. 
If  the  depopulation  were  instantaneous  (T  -*■  0)  then  the  heat  release  would 
be  proportional  to  the  intensity  since  for  every  molecule  emitting  a  photon, 
that  same  molecule  gives  off  a  quantum  of  heat.  It  has  been  shown  (Ref.  12) 
that  the  above  equation  for  the  heat  release  can  be  used  in  all  regions  of 
the  far  cavity  with  only  small  error. 

The  constant  C  can  be  found  by  conservation  of  energy.  Consider  the 
following  three-level  molecule  shown  in  Figure  25. 
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m 


TP 


Figure  2S.  Three-level  molecule. 


The  quantum  efficiency  n  is  defined  as  the  ratio  of  the  power  out  divided  by 
the  power  in,  so  for  the  gain/phase  segment  under  consideration 


(No.  molecules)  (E2-E1) _  P 
n  *  (No.  molecules)  dH+Ap 


(90) 


where 

AH  =  (No.  molecules)  (E^  -EQ) 

The  above  expression  can  be  inverted  to  give 


(91) 


Assume,  for  this  calculation,  that  (0,0)  is  at  the  corner  of  the  sidewall  and 
the  NEP.  Then, 


AH  = 


(x',y)e"  ^X”X^  /UTdx' 

(x-x1)  Al(x,,y)e'(x“x)/UTdx' 


(92) 
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where,  recall 


I(x-x)  =J 


(l,  x>x' 
0  x<x' 


so 


so 


00  00 


AH  =  cAz  f  iyj  dxiAl(x',y)  f  dxl(x-x')  e'(x'-1^/UT 

Jo  ^0  J 


OO  00  --  (? 

=  cAz  /  dy  I  dxAl  [x,y)J  dx  e  x 


-x  /UT 


wo  o 


AH  =  CAZ 


30  » 

f  dy  /  d-x'AI,-x"v)  ( nrrf) 


=  cUTAzAP 


iil  =  ^  =  cUTA: 
n  AP 


(93) 


(94) 


(95) 


(96) 


Since  the  numerical  kinetics  return  the  conditions  of  the  wake  region  and  not 
the  heat  addition,  these  must  be  the  data  used.  Thus,  for  the  analytical 
kinetics  model,  find  the  heat  addition  to  the  wake: 


1 


X  x( 


W(x,y)  = 


-(x-xl/UT 


- fx-x) /UT 


/  ' c  /  dx'  y*  dx"  AI  (x*,  y)  £ 

co  * 

=  c  jf  dxl  (x-xO  J  dx  I(x'-x)  Al(x*,y)  £ 

00  » 

=  c  y*  dx*AI(x,y)  J  dx  I(x-x)  I(x'-x)  £  ^  xt)/UT 

-  c  f  dxI'AK x,y)  I (x-x“)  /  dx  £  ‘(X‘^/UT 

•/o 


(97) 


so 


/ 


Wix.y)  =  c  I  dx“  AI(x",y)  Ut(i-e 

'o  ' 


_e-(x-x")/UT\ 


(98) 


so,  recalling 


c  =  ^  ofe  and  AI(x,*y)  =  2  (rri)  PPD  frora  SIMPGG  (99) 

wake  energy  addition  becomes 


W(x,y)  *  ~ 

Now  that  both  numerical 
heat  addition,  the  Fuhs 


ilH  y*  dx!  PPD  (x',y)  ^l-£'(X'^/UTj  (10°) 

and  analytical  models  can  give  the  wake  integrated 
effect  is  calculated  in  the  following  manner: 


H(I,J) 


s/ 


,x(I) 

h(x,y)  dx 

x(I-l) 


,  W(X(I))  '  w(x(i-d) 


AX 


(101) 


Given  this  average  heat  release  function,  the  integral  along  a  characteristic 
can  be  performed.  Note  that  reflection  off  the  sidewalls  must  be  included,  as 
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can  be  seen  in  Figure  26.  The  contribution  due  to  reflection  at  P^  is  there¬ 
fore  found  by  finding  the  total  heat  released  along  the  characteristic  that 
reflects  at  P,,  then  adding  this  to  that  found  along  P^P-. 

(Note:  For  larger  Mach  angles  f>tan  -l(lAy/2Ax) ) ,  the  effective  number  of 
points  in  the  direction  is  multiplied  by  a  factor  of  KS  in  the  program  so 
that  only  information  in  two  mesh  rectangles  is  needed  to  find  heat  addition 
at  the  wall,  i.e.,  extrapolation  from  the  two  nearest  the  sidewall,  as  can 
be  seen  from  the  following  more  detailed  description  of  how  the  left  and 
right  characteristic  terms  are  found.)  Assume  KS  *  1  and  that  the  Mach  angle 
is  less  than  tan”1  (0y/2Dx) .  This  is  assumed  in  the  program  by  changing  the 
total  effective  number  of  x  coordinates  to  be  KS*NPTS. 


Consider  first  the  left  characteristic  term  for  the  (I,J)  point  in 
Figure  27: 


DVOYR 


•  J-1 


•  •  •  J-2 

1-2  1-1  I 


Figure  27.  Left  characteristic  value. 


The  left  characteristic  value  at  (I,J)  is  that  at  P  (found  by  a  linear  inter¬ 
polation  between  the  and  (I-l.J-l)  points)  plus  the  heat  released  in 

the  region,  again  usir.g  a  linear  interpolation  for  H  at  (I-1,J)  and  (I-1,J-1). 

Sow  consider  a  boundary  point  shown  in  Figure  28; 

•  •  *3 


•  2 


Figure  28.  Boundary  point. 


To  find  the  characteristic  value  at  (1,1)  it  is  necessary  to  know  the  value 
at  point  P  which  is  in  the  (1,1)  column  on  the  sidewall.  The  value  will  then 
be  a  linear  interpolation  between  the  values  at  (1-1,1)  and  P  plus  a  similar 
linear  interpolation  for  the  added  heat. 
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To  find  the  characteristic  value  at  point  P,  the  values  at  (1-2,2) 
and  (1-2,1)  are  extrapolated  linearly  toward  the  boundary  to  find  the  value 
at  point  0.  Heat  is  then  added,  again  by  linear  extrapolation. 

Note  that  this  detailed  analysis  at  the  boundary  assumes  that  the  char¬ 
acteristic  of  interest  lies  between  the  boundary  at  (1-1)  and  the  (1-1,1) 
point,  hence  the  necessity  of  the  restriction  that  DYR  =  DYCH/DY  be  less  than 
0.5. 

Analysis  of  the  right  characteristic  is  similar  to  that  of  the  left 
characteristic. 

The  phase  shift  is  found  using  the  Gladstone-Dale  relation. 

n  as  1  >  Co  (102) 


The  phase  change  Ao  is 


A4>  * 


T  ““ 


2?r 

X 


(103) 


This  is  then  added  to  that  of  the  unloaded  density  field  to  establish  the 
total  phase  change  at  the  gain/phase  segment. 

c .  Fortran 

Argument  List 


:ic 


fwake  for  numerical  kinetics 

for  analytical  kinetics 

x  /x-nX 

AI  x- 


-(-) 

AZ  \  n  / 


DEN  *  phase  change  returned  due  to  the  FUHS  effect 
NCV  -  cavity  number 
Commons  Changes  -  none 
Subroutines  called  -  none 

Computer  printouts  of  subroutine  FUHS  follow. 
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W 


ono 


SUBROUTINE  FUHS 


76/176 


0PT=1 


FIN  4.6+432 


04/27/79  12.23.47 


SUBWUUUnE  FuH5UlC.0tN.NCv) 

FUNS 

2 

c 

FUH S  tfl'tcr  ALuOMllHH 

FUMS 

4 

c 

This  MOU  t INt  CAlCULA f  tb  Mt  CUNTHIbUUON  ro  THt 

CAVITY  OCNSITY 

FUHS 

4 

c 

FltLU  DUE  TO  StIMULATtO  EMISSION  InUUCEO  HEAT  AUOITION. 

fuhS 

b 

LtVtL  2 .  ZIC.OEn.xC 

FUHS 

0 

C0MM0N/CAV2/XC (SI .rc (SI .ZClb) .NX (S) .NY (S> .NS<b) . 

XMC(S)  .  YMC(S)  * 

FUHS 

7 

2  No  T  f ME ( 20 ) •  3SoAlN(  1900)  .SAT  IN(S> 

tbETA(b) .MHOS(b) * 

FUHS 

a 

J  VELlb) .OAM(b) .XMACM(b) • 1 VI (St .Tv2tbl .TVAlb) .TVN2tb> .TSCAVlb) . 

FUHS 

0 

*  MSCAV <3) .MU (SI  .FN* (3)  ,FCUc (SI .Fh20(5) ,FCU(5I .FU2(b) •  M  TLt (20) • 

FUHS 

10 

3  AVd  (S)  *  NS  fM 

FUHS 

11 

DIMENSION  2 1C  (  1  )  «OtN  (  1  )  .CHN(96.2>  .CHL(96.2>  .M(96> 

FUHS 

12 

tNTMMlA.a.C) »A»C*ia-A) 

FUHS 

14 

CALL  CMUllHl IShT) 

FUHS 

14 

c  ••• 

CALCULATE  initial  CONSTANls 

FUHS 

lb 

U  a  VELINCV) 

FUHS 

16 

OMA  a  OAM (NCV) 

FUHS 

17 

AHA  a  AMACH(NCV) 

FUHS 

is 

MHO  a  RHUS (NCV) 

FUHS 

19 

A  a  O/XMA 

FUHS 

20 
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1 2 .  SUBROUTINE  GAINXY 

a.  Purpose  --  GAINXY  controls  the  gain  calculations  in  the  cavity. 
Figure  29  shows  the  Subroutine  GAINXY  flow  chart.  Either  small  signal  gain 
(along  one  stream  tube)  or  full-field-loaded  gain  is  selected.  From  input 
cavity  conditions  (including  vibrational  temperatures  of  the  constituents  at 
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noztle  exit  plane),  all  other  thermodynamic  parameters,  energy  levels, 
broadened  line-width  function,  gain,  optical  cross  section,  and  saturation 
intensity  at  a  single  point  are  given.  Subroutine  KINET  is  called  to  inte¬ 
grate  the  rate  equations  along  the  X-direction  (streamtube) .  This  is  done 
only  once  for  small  signal  gain.  When  loaded  gain  is  selected  the  entire 
field  is  calculated  and  gain  is  updated  by  local  intensity  one  step  in  the  Z 
(propagation)  direction.  The  loaded  gain  is  hence  a  numerical  (small  step¬ 
wise  integrated)  process.  This  updated  gain  and  intensity  field  is  used  to 
SOQ . 

The  single  stream  tube  small  signal  gain  is  used  in  subroutine  SIMPGG 
which  computes  a  closed  form  solution  of  the  full  field  loaded  gain. 

Subroutine  MIX  is  called  by  subroutine  GAINXY  to  calculate  the  transi¬ 
tion  rates. 

A  ratio  technique  is  employed  to  effect  calculation  of  the  gain  field 
for  9.27  ulasing.  This  is  triggered  by  GFACT  =  1  for  10.60  u;  GFACT  =  1  for 
9.27  u. 


b.  Relevant  formalism  --  The  option  for  small  signal  gain  only  or 
full-field  loaded  numerical  gain  is  determined  by  IFIELD  =  1  for  small  signed 
gain  and  IFIELD  =  1  for  numerical  gain. 

For  small  signal  gain  only,  the  gain  is  computed  first  at  the  nozzle 
exit  plane  and  then  computed  along  the  flow  direction  by  integrating  the 
rate  equations  in  subroutine  KINET. 

The  particular  initial  thermodynamic  conditions,  rotational  J  values 
(P  or  R  branch) ,  and  initial  vibrational  temperatures  are  brought  in  through 
common/CAV2/ .  Then,  for  a  particular  vibration-rotation  transition,  the  gain 
coefficient  is  given  by: 


(104) 
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Figure  29.  Subroutine  GAINXY  flow  chart. 
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Where , 


h  =  Planck's  constant  =  6.625  x  10" erg 
M  =  Mass  of  CO^  molecule  =  44  x  1.66  x  10"^4  g 
K  =  Boltzmann's  constant  =  1.38  x  10"16  erg/K 

J  +  1  for  J'  *  J  +  1  (P-branch) 

Sj  = 

J  for  J'  »  J  -  1  (R-branch) 


n  =  total  gas  number  density 
c  =  speed  of  light  *  3  x  1010  cm/s 
x^  *  mole  fraction  of  the  ith  species 

Vi  CO  3  ra8an  velocity  between  CO,  and  ith  species 

M.  =  reduced  mass  of  i-CO.  pair 
i-C02  2  r 

cr-CO^  »  optical  broadening  cross-section 
Vo  =  frequency  of  transition  ( v,j)  -  (v',  j') 


(10S) 


VJ 


=  N  fT  = 
v  J 


2j+i  „  -JCJ*n  n(v) 


(V) 

rot 


KT 


rot 


where , 


0v  =  Characteristic  temperature  of  state 
Ty  =  Vibrational  temperature  of  state 
The  saturation  intensity  is  calculated: 
hv6 

rSAT  =  a 

where, 

hv  »  photon  energy 

6  *  lower  laser  level  relaxation  rate 
a  *  optical  cross-section  of  the  transition 


(106) 


Where  Rc2  is  the  EOVO  transition  rate  ~  (1/s),  all  the  initial  energies 
of  the  vibration  levels  are  commited  before  entering  subroutine  KINET. 


EOOVI  =* 


Xco2  *2349 

_  hc*2349 
KT, 


1 
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EOVOI 


1 


EVOOI 


Xco2  *2349 

7  hc*667 
KT, 

Xco2  *2349 
e  hc*1388 


EN2I 


^2*2331 

hc*2331 


KTXN2 


1 
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Where  X  and  X...  are  mole  fractions  of  C0„  ,  N„  and  Tl,  T2,  TXI- 

co2  N2  2  and  2 ,  N2 

are  vibrational  temperatures.  These  vibrational  temperatures  and  levels  are 
shown  schematically  in  Figure  30. 

Gain  is  computed  as  a  function  of  x  by  calling  ’’KINET." 

When  the  loaded  numerical  gain  option  is  triggered  (IFIELD)  1) ,  the 
full  field  (in  X  and  Y)  gain  is  calculated  in  KINET  as  a  function  of  previous 
intensities  and  the  field  is  updated  when  returned  to  GAINXY  by  propagating 
each  local  intensity  through  a  AZ,  with  local  gain  GAN(I) .  The  gain  is  thus 
recomputed  for  each  Doint  G(J)  =  eG^ 


Argument  List 


XIC  intensity  array  of  propagation  field 

GAN  gain  array  of  propagation  field 

NCV  cavity  indicator 

IFIELD  trigger  for  small  signal  gain  (=*  1)  for  full  field 

loaded  gain  (/  1) 


Commons  Modified 
/START/ 

TSI 

PSI 


VI 


static  temperature  (K) 
static  pressure  (atm) 
gas  velocity  (cm/s) 
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eniperature  anil  energy  levels. 
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/RATE/ 

RSTIM 

/FACTOR/ 


Initial  Energy  (OOV  level) 

Initial  Energy  (OVO  level) 

Initial  Energy  N7  vibrational  level 
INITIAL  GAIN 


static  temperature  (K) 

static  pressure  (atm) 

gas  velocity  (ca/s) 

gas  density  (g/cm^) 

number  density  (cm  ^) 

specific  heat  I  constant  pressure 

ratio  of  specific  heats 

gas  constant  of  mixture 

(In  2)  (3.78  x  106) 

wavelength  (X) 

energy  of  photon  of  wavelength  XLAMB 

parameter  to  get  Doppler  broadened  line  width 
ratio 

mole  fraction  (N^) 
mole  fraction  (CO^) 
mole  fraction  (H^O) 
mole  fraction  (CO) 
mole  fraction  (07) 

stimulated  transition  rate  (s'*) 

molecular  weight  of  gas  mixture 
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GDL 


Figure  31.  Subroutine  GDI.  organization 


o  r  n  n  o  r 


AG  Avogadro ' s  number 

GCON  gain  correction  factor 

ROTUP  upper  rotational  level  (K) 

ROTLO  lower  rotational  level  (K) 

RCORR  correction  factor  for  optical  x-section 

C  speed  of  light  (cm/s) 
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00  300  I  a  l.IXMAX 
300  SSGAlNdtNCV)aGAN(I) 

SAT InKsSmT IN (NCV 1/1000. 

WHITE (6. 100)  GAM (NCV) .XMACM(NLV) .MHOS (NCV  >  »8E  T  A (NCV  > .SAT  INK 

100  FOWMAI (2/HOHESOLTS  FH OM  AiNEllCS  DECK/ IX .8HGAMMA  a  .G12 . S.4X , 15HMA 
XCH  NUMBER  a  .G12.5.4X. I JnotNSlt Y  a  .G12.S.4X. 7HBET  A  a  .G12.S, 

X  4X«dHSX r IN  a  , 012. S///2 7x , * ( 1 d*  XNEP  GO(XN£P)J) 

00  101  1*1, UMAX 

GA«( I*lXMAX)alOO.*SSOAlNI 1 ,NCV) 

101  GAN(  l  )*<2*I-ll*OACAV/2. 

WHITE  (6*102)  (GAN(  1  I  .GAN  1 1  •  UMAX )  *la|.lAMAX) 

GO  TO  *82 

102  FORMAT (4d(cSA.8F*. 3/)) 


GA1NXY 

48 

LH0P1 

18 

LH0P1 

19 

GA1NAY 

49 

LH0P1 

20 

GAINAY 

SI 

GA1NXY 

S2 

GA1NXY 

S3 

oAlNAY 

S4 

GAINAY 

ss 

GAINAY 

S6 

GAINAY 

S  7 

GAINAY 

S8 

GAINAY 

S9 

GAINAY 

60 

GAINAY 

61 

GAINAY 

62 

GAINAY 

63 

GAINAY 

64 

GAINAY 

6S 

GAINAY 

66 

GAINAY 

67 

GAINAY 

68 

GAINAY 

69 

GAINAY 

70 

GAINAY 

71 

GAINAY 

72 

GAINAY 

73 

GAINAY 

74 

GAINAY 

7S 

GAINAY 

76 

GAINAY 

77 

GAINAY 

78 

GAINAY 

79 

GAINAY 

80 

GAINAY 

81 

GAINAY 

82 

GAINAY 

83 

GAINAY 

84 

GAINAY 

85 

GAINAY 

86 

GAINAY 

87 

GAINAY 

88 

GAINAY 

89 

GAINAY 

90 

GAINAY 

91 

GAINAY 

92 

LW0P1 

21 

GAINAY 

93 

GAINAY 

94 

GAINAY 

95 

GAINAY 

96 

GAINAY 

97 

GAINAY 

98 

GAINAY 

99 

GAINAY 

100 

GAINAY 

101 

GAINAY 

102 

GAINAY 

103 

GAINAY 

i04 

GAINAY 

105 

GAINAY 

106 

GAINAY 

107 

GAINAY 

108 

GAINAY 

109 

GAINAY 

110 

GAINAY 

111 

GAINAY 

112 

GAINAY 

113 

GAINAY 

11* 

115 


CALCULAtt  LOAOtO  GAIN 

GAINXT 

US 

4*0 

0ELT  Afi<.  («CV  t  /NS  INC  4  1  /i  . 

GA1NAY 

116 

**uf  •  ixnaa«it 

GAINXT 

117 

DO  4*1  Jal'MUT 

GAINXT 

11* 

4*1 

GAN  (  J  )aCA»MGAN(  J  >*UEUA{> 

GAINXT 

119 

4*2 

HfcfUHN 

GAINXT 

12U 

ENO 

GAINXT 

U1 

13.  SUBROUTINE  GDL 

a.  Purpose  —  Subroutine  GDL  is  the  main  driver  program  for  resonator 
and  optical  train  calculations.  It  is  here  that  the  information  about  each 
resonator  element  is  stored,  as  well  as  the  order  in  which  they  are  applied 
to  the  beam.  Figure  31  shows  the  Subroutine  GDL  organization. 

b.  Formalism  —  Subroutine  GDL  controls  the  iterative  procedure  of 
starting  with  a  given  field  established  in  the  main  program  (SOQ)  and  propa¬ 
gates  this  field  through  the  resonator.  Eventually,  the  mode  which  loses  the 
least  power  (in  the  case  of  a  bare  resonator)  or  gains  the  most  power  Cin  the 
case  of  a  loaded  resonator)  will  predominate  since  the  other  modes  will  be 
suppressed  due  to  relative  power  loss.  For  the  degenerate  case  when  two  or 
more  modes  are  competing  for  the  status  of  lowest  loss  mode,  the  field  will 
usually  fail  to  converge  to  a  single  mode  shape,  since  there  is  no  unique 
mode  for  that  eigenvalue. 


c.  Fortran  --  To  accomplish  the  above,  GDL  contains  several  fundamental 
arrays.  One  is  the  singly  dimensioned  CU  array  in  which  the  field  is  stored. 
For  a  given  point  (x(I) ,  x(J))  the  field  value  is  stored  in  the  complex  loca¬ 

tion. 

CU  (I  ♦  (J-l)  *  NPTS) 

Common  /MELT/  contains  CU  as  well  as  the  work  array  CFIL,  the  coordinate 
array  x,  the  location  of  the  optical  axis  (DRX  and  DRY) ,  and  the  iteration 
number  NITER.  This  common  is  shared  by  most  of  the  routines  in  the  deck.  The 
other  major  arrays  are  the  ABC  array,  the  IGDL  array,  and  the  GNOT  array. 
During  the  first  iteration  of  a  particular  run,  GDL  reads  input  from  unit  IN 
in  the  form  of  namelists  and  titles.  The  order  of  resonator  elements  to  be 
met  by  the  beam  is  controlled  by  the  order  in  which  the  SCONTRL  cards  are 
read.  These  contain  the  IFLOW  parameters  which  designate  specific  elements, 
as  follows: 
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NAMELIST/CONTROL/ IFLOW,  SNOTE,  IPLOTS 

I FLOW  CONTROLS  THE  FLOW  OF  CALCULATIONS  THROUGH  GDL 

=  1  CAVITY  ELEMENT,  READS  CAVTY1,  CAVTY2. 

(from  CAVITY) 

*  2  MIRROR  ELEMENT,  READS  MIROR 

=  3  VAMP  ELEMENT,  READS  PROPGT 

»  4  APERTURE  ELEMENT,  READS  APTUR 

*  5  THERMAL  BLOOMING,  READS  BLOOM 

*  6  INTERPOLATE  FIELD  OVER  SMALLER  AREA,  READS  CUTOUT 

=  7  TEST  FOR  CONVERGENCE  OF  ITERATION,  NO  INPUT 

=  8  PLOT  FIELD  DISTRIBUTION,  READS  TITLE 

=  9  RETURN  CONTROL  TO  CALLING  PROGRAM,  NO  INPUT 

=  10  READ  AND/OR  WRITE  CU  ON  DISK,  READS  DISKIT 

=-  11  AERO  WINDOW  R.M.S.  PHASE  MODEL.  NO  INPUT 

*  12  SCALING  ROUTINE  .  .  .MULTIPLIES  ENTIRE  FIELD, 

READS  MULT 

=  13  FLIPS  THE  FIELD  ABOUT  THE  y-AXIS,  NO  INPUT 

=  14  SINUSOIDAL  DENSITY  VARIATIONS,  READS  SINDEN 

=  IS  REGRIDS  FIELD  TO  LARGER  SIZE,  READS  REGRID 

a  16  CU  PUNCHED  ON  CARDS,  NO  INPUT 

=  17  MIRROR  THERMAL  BL  MODEL,  READS  THRML 

-  18  SPIDER  ROUTINE,  READS  SPIDR 

*  19  AXION  ROUTINE,  READS  AXICON 

»  20  PROPAGATE  IN  R-THETA  SPACE,  READS  RPROP 

=  21  REMOVES  OR  ADDS  BACK  BEAM  CENTER,  READS  CENTER 

»  22  FLIPS  THE  BEAM  ABOUT  THE  x-AXIS,  NO  INPUT 

IPLOTS  is  the  printer  plot  selector.  IPLOTSaABCDE,  where  A*1  selects  R-theta 
plots,  B«1  selects  iso-intensity  plot,  C»1  selects  x-axis  plot,  D«1  selects 
diagonal  plot,  and  E»1  selects  y-axis  plot:  examole,  IPLOTS  =  1001  selects 


iso-intensity  and  y-axis  plots  in  x-y  coordinates.  The  order  of  IFLOW  numbers 
for  a  given  resonator  is  then  stored  in  the  IGDL  array  for  future  iterations. 
Tn  the  same  manner  the  associated  titles  are  stored  in  the  GNOT  array. 

Usually  for  a  given  IFLOW  there  is  another  associated  namelist  contain¬ 
ing  relevant  element  parameters.  Once  read  in,  these  numbers  are  stored  in 
ABC  (I,J,K)  where  I  indicates  the  parameter  for  the  J  the  element  of  type  K. 
The  number  (J)  of  the  element  is  stored  in  common  ZIP,  which  is  equivalenced 
to  the  ICAVZ  array.  At  the  beginning  of  each  iteration  most  of  ICAVZ  is 
filled  with  zeros  so  that  the  center  index  of  the  ABC  array  is  correctly 
identified.  At  the  end  of  each  iteration,  the  current  field  is  compared  with 
that  of  the  previous  iteration  in  two  ways:  Cl)  the  cutout  and  interpolated 
feedback  field  is  compared  and  (2)  the  full  field  just  before  the  hole-coup¬ 
ling  mirror  is  compared.  When  the  differences  between  two  consecutive  itera¬ 
tions  fall  within  given  tolerances  (10%  for  the  feedback  field,  2%  for  the 
hole-coupler  field  and  0.7%  for  the  power  at  the  output  of  the  resonator), 
the  field  is  said  to  have  converged,  i.e.,  the  lowest  loss  mode  has  been 
selected.  A  more  detailed  description  of  the  meaning  of  each  IFLOW,  its  func 
tion,  and  its  associated  namelist,  if  any,  follows: 

IFLOW  =  1  (GDL.  422-*GDL.446) 

A  GDL  cavity  is  applied  to  the  field.  NEWCAV  is  calculated  to  see  if  the 
beam  has  been  in  the  cavity  before.  The  namelist  used  in  CAVTY1. 

CALLS  CAVITY. 

NAMELIST/CAVTY1/NCAVN0,  ILR,  NSTE ,  NPLT,  ZPR0P1,  ZPROPO 
N'CAVNO  IS  THE  NUMBER  ASSIGNED  TO  CAVITY  FOR  IDENTIFICATION 
ILR  INDICATES  DIRECTION  OF  FIELD  THROUGH  CAVITY 
«  -1  RIGHT  TO  LEFT 

*  +1  LEFT  TO  RIGHT 

NSTE  CONTROLS  TYPE  OF  VAMP  CODE  BETWEEN  SEGMENTS 
=  1  CONSTANT  MESH  WITH  SETUP 

*  2  VARIABLE  MESH  WITH  SETUP  (EXITS  VAMP  AT  END  OF 

ELEMENT) 

*  3  VARIABLE  MESH  WITH  SETUP  (REMAINS  IN  VAMP) 


=  i  USE  EXISTING  PROPAGATING  MATRIX  (EXITS  VAMP) 

=  S  USE  EXISTING  PROPAGATING  MATRIX  (REMAINS  IN  VAMP) 

NPLT  CONTROLS  INTERMEDIATE  PRINTOUT  FOR  CAVITY 
=  0  NO  PRINTOUT 

=  1  PRINT  FIELD  BEFORE  AND  AFTER  GAIN,  AND  GAIN  COEFFICIENT 

ZPROPI  IS  PROPAGATION  DISTANCE  FROM  PREVIOUS  OPTICAL  ELEMENT  TO  CAVITY. 
ZPROPO  IS  PROPAGATION  DISTANCE  FROM  CAVITY  TO  NEXT  OPTICAL  ELEMENT 
I FLOW  *  2  (GDL.S27-GDL.S58) 

Here  the  parameters  necessary  for  application  of  a  mirror  are  set  up. 
The  namelist  read  is  MIROR.  CALLS  MIRROR 

NAMELIST/MIRQR/ANGXX,  ANGYY,  RADC,  DIAOUT,  DIAIN,  XMPOS,  YMPOS,  RMIR, 

X  DELIA,  DISTF,  DQUTY,  DINY,  RANULS,  PHIAST 

ANGXX  IS  TILT  IN  x-DIRECTION  -  RADIANS  (WRT  OPT.  AXIS) 

ANGYY  IS  TILT  IN  v-DIRECTION  -  RADIANS  (V.'RT  OPT.  AXIS) 

RADC  IS  RADIUS  OF  CURVATURE  OF  SPHERICAL  MIRROR 

DIAOUT  IS  OUTSIDE  DIAMETER  OF  MIRROR 

DIAIN  IS  INSIDE  DIAMETER  OF  MIRROR 

XMPOS  IS  X-DISPLACEMENT  OF  MIRROR  FROM  OPTICAL  AXIS 

YMPOS  IS  Y-DISPLACEMENT  OF  MIRROR  FROM  OPTICAL  AXIS 

RMIR  IS  REFLECTIVITY  OF  MIRROR 

DELTA  IS  CENTER-TO-EDGE  DISTORTION  FACTOR  (CM) 

DISTF  IS  MIRROR  DISTORTION  FACTOR  (DEFLECTION*DISTF*I* 

(1 . 0-RMIR) ) 

RANULS  IS  OUTSIDE  RADIUS  OF  .ANNULAR  BEAM  (IF  APPLICABLE) 

DOUTY  FLAGS  THE  TYPE  OF  APERTURE  APPLIED  - 

.EQ.  0  -  CIRCULAR  APERTURE  DEFINED  AS  ABOVE 

.NE.  0  -  RECTANGULAR  APERTURE,  DIAOUT  HIGH  (X)  BY 
DOUTY  WIDE  (Y) 
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DINY  IS  SIMILAR  TO  DDUTY  FOR  INSIDE  DIMENSIONS 
PHIAST  IS  THE  ANGLE  OF  INCIDENCE  OF  THE  BEAM  IN  DEGREES 

I  FLOW  =  3  (GDL.  578-KjDL  .  612) 

For  this  IFLOW,  a  propagation  step  is  applied.  Relevant  parameters  are 
found  in  namelist  PRCPGT.  CALLS  STEP. 

NAME LIST/PROPGT/DE LZ ,  RDCURV,  WINDOX,  WINDOfC,  IIFG,  IITR,  IIPS 
DELZ  IS  PROPAGATION  DISTANCE 
RDCURV  IS  RADIUS  OF  CURVATURE  OF  PHASE  FRONT 
IF  CABS  (RDCURV)  .LT.0.5)  USE  RADCUR  OF  PREVIOUS 
MIRROR 

WINDOX  IS  X-SPACE  DATA  WINDOW  FOR  FFT 

WINDOK  IS  K-SPACE  DATA  WINDOW  FOR  FFT 

IIFG  IS  A  VAMP  CONTROL  PARAMETER 
=  1  FOR  CONSTANT  MESH 
=*  2  FOR  VARIABLE  MESH 
IITR  IS  ANOTHER  VAMP  CONTROL  PARAMETER 
=  0  NO  INVERSE  TRANSFORM 
=  1  INVERSE  TRANSFORM  BACK  TO  REAL  SPACE 
IIPS  IS  FOR  CORRECTION  OF  PLANE  AND  SPHERICAL  PHASE 
FRONTS 

*  0  NO  CORRECTION 

*  1  PLANAR  CORRECTION  ONLY 

=■  2  QUADRATIC  CORRECTION  ONLY  (NOT  OPERATIONAL) 

=  3  BOTH 

IFLOW  =.  4  (GDL. 613-KjDL .631) 

Here  an  aperture  is  applied.  IF  DOUT  and  DIN  are  both  less  than  0, 

SLIVER  is  called.  If  both  are  greater  than  or  equal  to  zero,  APRTR  is  called. 
The  relevant  namelist  is  APTUR. 
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NAMELIST/ APTUR/DOUT,  DIN,  XPOS,  YPOS,  YOUT,  YIN 

DOUT  IS  OUTSIDE  DIAMETER  OF  APERTURE 

DIN  IS  INSIDE  DIAMETER  OF  APERTURE 

XPOS  IS  x- DISPLACEMENT  OF  APERTURE  FROM  OPTICAL  AXIS 
YPOS  IS  /-DISPLACEMENT  OF  APERTURE  FROM  OPTICAL  AXIS 

YOUT  FUGS  THE  TYPE  OF  APERTURE  APPLIED  - 

.EQ.O  -  CIRCULAR  APERTURE  DEFINED  AS  ABOVE 

.NE.O  -  RECTANGULAR  APERTURE,  DOUT  HIGH  (X)  BY 
YOUT  WIDE  (Y) 

YIN  IS  SIMIUR  TO  YOUT  FOR  INSIDE  DIMENSIONS 
I  FLOW  =  5  (GDL.632-»GDL.652) 

Thermal  Blooming  is  applied  to  the  complex  field,  BLOOM  is  read  in  and 
subroutine  T0L^V  is  called. 

NAMELIST/BLOOM/ ALFA,  SCP,  T,  RHO,  ZLEN ,  NSTEPS,  INPT,  NPROP,  AXIAL,  DT 


AFU 

3 

MEDIUM  ABSORPTION  COEFFICIENT,  CM-1 

SCP 

= 

MEDIUM  SPECIFIC  HEAT,  J/GM-DEG  K 

T 

MEDIUM  TEMPERATURE,  DEG  K 

RHO 

= 

MEDIUM  DENSITY,  GM/ CM3  (OR  TRANSVERSE  VEL 

IF  . GT . 1 , ) 

ZLEN 

3 

MEDIUM  THICKNESS  ALONG  OPTICAL  AXIS 

NPROP 

s 

PROPAGATION  PARAMETER.  .  .SAME  AS  NSTE  IN 

CAVITY 

NSTEPS 

3 

NUMBER  OF  ELEMENTS  IN  SUBSYSTEM,  .GE.  1 

INPT 

3 

.NE.O  FOR  INTERMEDIATE  FIELD  PLOTS 

AXIAL 

= 

'axial  VELOCITY  (CM/SEC)  IF  .GT.  0,  USES 
AXIAL  BLOOMING 

DT 

3 

BEAM  ON  TIME  FOR  THERMAL  BOUNDARY  UYER 

GROWTH  IN  TRANSIENT  BLOOMING  CALCS.  IF 

DT.GT.O  USES  TRANSIENT  BLOOMING 

I FLOW  »  6 

(GDL.653-K3DL.779) 
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For  this  option  the  field  can  be  cut  out  and  interpolated  from  one 
region  size  to  another.  The  number  of  points  is  not  changed.  If  CUSMF  is  not 
equal  to  zero,  the  field-averaged  feedback  field  is  stored  on  unit  8  and  the 
convergence  checks  are  made  on  the  feedback  field  and  the  pre-HCM  field  which 
is  stored  on  unit  7  temporarily.  The  field  for  the  bare -resonator  is  renor¬ 
malized  at  this  point  to  unit  maximum  intensity.  Namelist  CUTOUT  has  the 
information  for  the  new  region  in  it  as  well  as  other  parameters. 

NAMELIST/CUTOUT/DIBEAM,  OVRLAP,  DXXR,  DYYR,  MAXIT,  AVCUSM,  CUSMF 

CUSMF  =  1.  FOR  NORMAL  LOADED  RESONATOR  CUTOUT 

CUSMF  =  0.  AVOIDS  WRITING  FIELD  ON  8  AND  AVOIDS  NORMALIZ¬ 
ING  FIELD,  CHANGES  TO  THE  NEW  COORDINATES, 

THEN  RETURNS. 

DIBEAM  IS  THE  DIAMETER  OF  BEAM  FOR  NEXT  ITERATION 
OVRLAP  IS  DCALC  =  OVRLAP*DIBEAM 

DXXR  IS  POSITION  OF  ITERATIVE  BEAM  REL.  TO  OPTICAL  AXIS 
DYYR  IS  THE  SAME 

MAXIT  IS  THE  MAXIMUM  NUMBER  OF  ITERATIONS 
AVCUSM  AVERAGES  PREVIOUS  AND  NEXT  ITERATION  GUESS  IN  THE 
HOPE  OF  RAPID  CONVERGENCE ... =0  NO  AVE,  =  .5  HALF  AND  HALF 
I FLOW  =  7  (GDL.795-GDL.842) 

There  is  no  namelist  associated  with  this  option.  The  convergence  check 
on  the  power  is  made  here.  If  the  solution  has  not  yet  converged,  the  gain/ 
phase  information  is  updated  by  a  call  to  REGAIN,  then  the  resonator  is  re¬ 
started  for  the  next  pass. 

I  FLOW  =  8  (GDL.500-*GDL.513) 

If  the  parameter  plot  is  non-zero  in  namelist  START  in  SOQ,  this  IFLOW 
will  generate  printer  plots  by  a  call  to  IPLOT.  Namelist  PLOT  is  read. 

NAMELIST/PLOT/TITLE  RADPLT 

TITLE  IDENTIFIES  THE  POSITION  OF  EACH  STATION  PLOTTED 
RADPLT  CONTROLS  THE  TYPE  OF  PLOT 

=  0.0  FOR  X, Y  PLOTTING  (X-AXIS,  Y-AXIS,  DIAGONAL) 


*  1.0  FOR  RADIAL  PLOTTING  AT  VARIOUS  THETAS 

I FLOW  *  9 

This  IFLOW  only  results  in  the  return  to  the  main  program,  SOQ. 

I FLOW  =  10  (GDL.447-GDL.475) 

This  option  allows  the  field  to  be  read  in  from  or  read  to  a  specific 
unit  in  standard  SOQ  format.  It  calls  no  peripheral  subroutines  and  reads  the 
unit  designation  from  namelist  DISKIT. 

NAMELIST/DISKIT/ IREAD,  IWRITE,  IORD,  I ADD 

IREAD  IS  THE  DISK  #  TO  BE  READ  OFF/ON...  IF*0. . .DON'T 

READ 

IWRITE  IS  THE  DISK  *  TO  BE  WRITTEN  ON...  =0.-.. DON’T  WRITE 

IORD  IS  THE  ORDER  =  1,  READ  FIRST 
=-l,  WRITE  FIRST 

I ADD  =  1  UPDATES  IWRITE  BY  1  FOR  SUCCESSIVE  ITERATIONS 
IFLOW  *  11  (GDL. 476-MjDL. 482) 

This  option  applies  an  aerodynamic  window  to  the  complex  field.  It  reads 
no  namelist  and  calls  AEROW  to  perform  the  calculation. 

IFLOW  =  12  (GDL.  485-MjDL.  499) 

The  field  can  be  scaled  using  this  option.  At  the  same  time  the  x  array 
can  also  be  magnified.  No  subroutines  are  called  and  MULT  is  read. 

NAMELIST/MULT/TRANS,  XMAG 

TRANS  IS  TRANSMISSION  OF  ELEMENT 

XMAG  IS  MAGNIFICATION  FACTOR  FOR  THE  X-ARRAY 

IFLOW  a  13  (GDL.514-K5DL.  526) 

This  option  flips  the  field  about  its  y-axis.  No  namelists  are  read 
and  no  subroutine  called. 

IFLOW  »  14  (GDL.408-MjDL.421) 


This  option  imposes  a  sinusoidal  density  (phase)  variation  to  the  exist¬ 
ing  complex  field.  It  calls  no  subroutines,  but  it  reads  SINDEN  for  informa¬ 
tion  on  the  sine  wave. 

NAMELIST/S INDEN/NBEAM,  AWL 

NBEAM  IS  THE  NUMBER  OF  CYCLES  PER  X-CALCULATED  REGION 
AWL  IS  THE  AMP/WL  OF  THE  SINUSOIDAL  VARIATIONS 
I FLOW  *  IS  (GDL.  780-HIDL.  793) 

The  field  can  have  superimposed  on  it  a  different  number  of  mesh  points. 
The  spacing  between  two  adjacent  points  does  not  change  unless  RGRD  is  called. 
Just  the  number  of  points  in  the  mesh  changes.  If  the  number  of  points  is 
increased,  RGRD  adds  zeros  to  the  outside  of  the  existing  region.  This  option 
reads  namelist  REGRID 

NAME  L I ST/REGRI D/NGRD 

NGRD  IS  NO.  OF  FIELD  POINTS  ACROSS  REGRIDDED  DCAL 
I FLOW  =  16  (GDL.390-GDL.406) 

In  this  I FLOW,  no  subroutine  is  called  and  no  input  is  read.  The  field 
and  coordinates  are  written  format  to  TAPE  4  in  cards  to  be  punched. 

I  FLOW  *  17  (GDL.559-H3DL.557) 

Quiescent  thermal  gradients  are  imposed  by  this  option.  Namelist  THRML 
is  read  and  subroutine  THERML  is  called. 

NAME L I ST/THRML/ ALPHAM ,  CONMIR,  ALPHAG,  RHOGAS,  TAU,  TIN,  REFMIR,  CONGAS 
THRML  IS  THE  NAMELIST  FOR  BOUNDARY  LAYER  THERMAL  LENS 
CALCULATIONS 

ALPHAM  *  MIRROR  DIFFUSIVITY  (CM2/SEC) 

CONMIR  *  MIRROR  THERMAL  CONDUCTIVITY  (WATTS/CM-SEC) 

ALPHAG  *  THERMAL  DIFFUSIVITY  OF  GAS  HEATED  BY  MIRROR 
(CM2/SEC) 
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CONGAS  =  THERMAL  CONDUCTIVITY  OF  GAS  HEATED  BY  MIRROR 
(WATT/CM-SEC) 

RHOGAS  *  DENSITY  OF  GAS  HEATED  BY  MIRROR  (GM/CC) 

TAU  »  BEAM  ON  TIME  FOR  BOUNDARY  LAYER  GROWTH  (SEC) 

TIN  »  INITIAL  TEMPERATURE  OF  GAS  §  MIRROR  (DEG  K) 

REFMIR  *  MIRROR  REFLECTIVITY  (OBTAINED  FROM  MIRROR 

INPUT) 

THERMAL  MAY  BE  APPLIED  AFTER  ANY  MIRROR  TO  ALTER  THE  GAIN- 
PHASE  DUE  TO  HEATING  OF  THE  QUIESCENT  BOUNDARY  LAYER 
ADJACENT  TO  THE  MIRROR  SURFACE. 

I  FLOW  *  18  (GDL.  378-*GDL.  389)  • 

With  IFLOW  =  18,  a  spider  obscuration  can  be  applied.  Subroutine  SPIDER 
is  called  using  the  information  read  in  with  namelist  SPIPP. 

NAMELIST/SPIDR/NSPD,  WIDTH,  THETA,  XSPC,  YSPC,  DIH 

NSPD  *  NUMBER  OF  STRUTS  IN  SPIDER  (MAX=6) 

WIDTH  =  WIDTH  OF  SPOKES  IN  SPIDER 

THETA  =  .ANGLE  OF  INDIVIDUAL  SPOKES  OF  SPIDER 

XSPC  =  x- LOCATION  OF  CENTER  OF  SPIDER 

YSPC  =•  y- LOCATION  OF  CENTER  OF  SPIDER 

DIH  *  HUB  DIAMETER 

IFLOW  >  19  (GDL.  366-*GDL.  377) 

This  option  allows  for  the  application  of  an  axicon.  Subroutine  AXICN 
is  called  after  namelist  AXICON  is  read. 

NAMELIST/ AXICON/CAPR ,  EXPAND,  ROC,  DISP,  TILT 

CAPR  IS  THE  OUTSIDE  RADIUS  OF  THE  ANNULAR  EXTRACTION  BEAM. 

(EXPAND. EQ.  .TRUE.)  MEANS  THE  BEAM  IS  GOING  FROM  CIRCULAR 
TO  ANNULAR  IN  CROSS-SECTION 

ROC  *  RADIUS  OF  CURVATURE  OF  THE  FIELD  IN  PHYSICAL 

SPACE 
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DISP 


=  DISPLACEMENT  OF  AXICON  FROM  CENTER  ALONG 


X-AXIS 

TILT  =  ANGLE  (RADIANS)  OF  AXICON  TILT  FROM  DIRECTION 

OF  PROP. 

I  FLOW  =  20  (GDL.  347-*GDL.  365) 

This  option  propagates  an  unrolled  annulus.  After  reading  in  namelist 
RPROP ,  it  then  calls  subroutines  RSTEP  to  perform  the  propagation  and  POWR 
to  determine  the  power  after  propagation. 

NAMELIST/RPROP/DELZR,  DELZTH,  WINDOX,  WINDOK 

DELZTH  IS  PROPAGATION  DISTANCE  FOR  THE  RADIAL  COORDINATE 
DELZTH  IS  PROPAGATION  DISTANCE  FOR  THE  ANGULAR  COORDINATE 
*** (DELZR  .NE.  DELZTH)  MEANS  YOU  ARE  MAKING  AN 
EQUIVALENT  COLLIMATED  BEAM  PROPAGATION  STEP 
IN  R-THETA  COORDINATES*** 

WINDOX  IS  X-SPACE  DATA  WINDOW  FOR  FIT 

WINDOK  IS  K-SPACE  DATA  WINDOW  FOR  FFT 

I FLOW  =  21  (GDL. 329-K1DL. 346) 

This  option  allows  for  the  removal  of  the  center  of  the  beam  which  is 
then  stored  on  unit  20,  or  it  can  allow  for  the  addition  of  a  field  read  from 
unit  20  modified  by  a  phase  change.  This  work  is  all  done  in  subroutine 
FIELDS  using  the  information  read  in  from  namelist  CENTER 

NAME  LIST/ CENTER/ DSM ,  REMOVE,  PHIARB 

DSM  IS  THE  DIAMETER  TO  BE  REMOVED  AND  LATER  ADDED  TO  THE 
MAIN  BEAM 

REMOVE  FLAGS  THE  ACTION 

.TRUE.  IF  THE  CENTER  PORTION  OF  THE  BEAM  IS  TO  BE  REMOVED 

.FALSE.  IF  THE  REMOVED  PORTION  IS  TO  BE  ADDED  BACK  TO  THE 
BEAM 

PHIARB  IS  AN  ARBITRARY  PHASE  CHANGE  ADDED  TO  THE  CENTRAL 
PORTION 
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I  FLOW  *  22  CS0Q77CYl.169-t.S0Q77CYl.181) 

This  option  flips  the  field  about  the  x-axis.  No  input  is  required  and 
no  subroutines  are  called. 

Argument  List 

IN  -  INPUT  UNIT  FOR  RESONATOR  DATA 

RESTRT  -  NEW  OR  OLD  RESONATOR? 

ABC  -  PARAMETER  ARRAY 

NITER  -  CURRENT  ITERATION 

IB  -  INPUT  UNIT  »  OF  OLD  FIELD 

I FLAG  -=  1  TRANSFERS  TO  OLD  ENTRY  POINT  -  READS  FIELD  FROM  IB/ 
CONTINUES. 

ABC  and  NITER  can  be  redefined  by  this  subroutine. 

Common  Variables  Modified: 


The  common  variable  not  modified  by  GDL  are: 

WL,  NPTS ,  NPY ,  RADCUR,  WNOW  and  NREG.  Note  that  NBC  is  modified  by  its 
equivalence  with  I GDL  and  IDIR. 

SUBROUTINE  GDL  76/176  OPT-1  FIN  4.6+452  04/27/79  12.23.47 


SupPOuTlNt  OuL  (  IP.PtSTPT.AdCiNl TCP.  lu»  IFLA8)  OOL  2 

C  OPTICAL  CALCULATIONS  POUT l NO  POUTlNfc  t»OL  J 

C  BY  PtANS  Of  Th£  INPUT  ILCOnTPLI TPC  UStH  INSTPUCIS  THIS  POOTINE  80L  A 

C  TO  3IPCCT  THfc  CALCULATION  uF  OPTICAL  tFFtCTS  OF  APCPIOPC S»  OUL  5 

c  pippoks*  CAYirits.  trc.  oul  t 

C  IFLAGpI  TPANS*CmS  TO  OLU  AUTO  fcNlPY  POINT  OUL  7 

OUL  0 

C  In  is  unit  cunt  a  In i no  inpoi  uata  fop  cunF Iouhation  oul  9 

C  PCSTPT  IS  CUNTPUL  fop  PtSTAPliNO  CALCULATIONS  FPOM  PPEvIuOS  PON  OUL  III 

C  «  .TPUt.  IF  HtSTAPTINli  l»OL  II 

c  »  .FALSE,  if  not  oul  12 

OUL  13 

C  oOL  1* 

LfcvtL  it  CU«CFlL2tCFFL  OUL  IS 

CUPPON/PfeLT/CU  < 1 6304 1 «CF 1L ( INS 12) •  A  1 120) f PL  *NPTS»NPY • UP A • OPT  OUL  16 

COPPON/PPPPOP/PAUCUP.ANOA.ANttY  UOL  17 

COPPQNF  PAY  /  *NO».NPiO»PAPTH  OOL  10 

COPPON/2lP/ltAVt IPlP.ISTtP«NOStiAP*lPTT.ITPAN.ITPPPL»IAAfIPSIPt  (MIL  19 
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A  ICUT.MLr.IOIC.lTM.ICElC.NCI 
COMMON  /VIA Z/  APlT(JQ.2U1.  N6C 11801  •  SAVE  1 10) 

COMMON  /INI JL/  1NT 

DIMENSION  101R(*.2*I  . IGOLIVR)  .A6C( 12.20. 0)  .CFFL  (16.16*)  .lUSA(*.9>  . 
AT AY (262) • XX (128) .AOUM( 126) ,tRROH( 10) . i 1 TLE (2U ) .CF IL2I16J6*) .Y ( 129) 
A,2Ll  (12)  >2L0t 12)  .GNOTE (20)  ,GnoT  (SO .20 )  « I  he T  A  (6)  .CPR<*>  »XPNUI*>  • 

A  0SMMI20) ,RMV (20) .PM1AI2U) .RCUHVtC*) »OSP<*> .  TLT  (4)  t  ICAV2( 16) 

01 MENS ION  IPLTStSO) 

COMPUSA  CFFL.CF 1 L2 . CO  «CF 1L . CPLN T « CF AC T T • CUO 
UOlilCAU  lNIT.RE5TRf.aHY  *  tXPANO.XRNO  .  REMOVE »MMV 
EUUl  VALENCE  (N«C(1)  tIGOLU)  )  ,  (N«C  1 100)  , 101H  ( 1 ,  l ) ) 

EDO I  VALENCE  (CF 1L ( 1 ) <CFFL ( 1 ) ) • (CF IL2 ( 1 ) iCU ( 1 ) >  t  ( ICAV < 1CAV2 ( 1 > ) 
OATA  IFLOU, TITLE  /9.20**H  /  .  IPLUTS  /  0  / 

DATA  NCAVNO. 1LR.NSTE iNPLT , 2PR0P l , 2PRUP0  /U» 1 • 1 .0.2*0./ 

OATA  ANGAX. ANGYY.RAOC.OIAOUT  .0 1 AIN, AMPOS*  VMPOS.RMIH ,U€LT A.01STF 
A  / O.U.  O.U.  0.0.  0.0.  0.0.  0.0.  0.0.  1.0.  0.0  •  0.0/ 

OATA  HANULS.  OOUTY,  01NY.  PHlAST 
A  /O.O.  0.0.  0.0.  0.0/ 

OATA  0EL2.  ROCURV.  a INOOX « a 1 NOOK .IIFb.IITH.I IPS 
A  /O.O*  0.0.  U.l.  0.1.  1.  0.  0/ 

OATA  OOUC.OIN.APOS.TPOS.YUUT.Y1N/  6*0.0/ 

OATA  OldEAM.OVHLAP.  OAAH.  UYYN*  MAAlT.  AVCUSM  /**0. 0. 1 .0.0/ 

OATA  COSMF/1./ 

OATA  NAOPLT/0.0/ 

OATA  ALFA.SCP. T. PNO. 2LEN. NS rtPS.INPT.NPPOP.AAlAL/S*0. 0.1.1. 0.0.0/ 
OATA  UT  /O.O/ 

OATA  1PEA0.  loMlIE.  10M0.  1 AOU  /O.O. 1.0/ 

OATA  TRANS.  ARAG  /l. 0.1.0/ 

OATA  N6EAM.A.L  /O.O.O/ 

OATA  NORO  /2/ 

OATA  ALPnAM.CONMIH. ALPHAU.MNUUAS. (AU. T IN, REFMIR. CONGAS 
A/6*0 .0 . 1 .0. 0.0/ 

OATA  CAPH.bAPANO.ROC  / JO . . . I  HUE . ,0. 0/ .  D1SP . T IL I/O. .0 ./ 

OATA  UEL2H .  0EL2TM,  alNOUX,  alNOUX 
A  /O.O,  O.U.  0.1.  0.1/ 

OATA  OSM  •  REMOVE  .  PnlAHU 
A  /O.O.  .THUt.  .  0.0  / 

OATA  OlM.ASPC.YSPC.RlOTM. (Mb  I A,NSPO/10.1*.0,.0...*2J.»I20.. 

A  0. .**0. .2/ 

NAMELIST/  CUnThl  /  IFLOa .GNU Tb . IHLU IS 

IFLOa  CONTWULS  mt  FLO*  OF  CALCULAI10NS  THROUGH  GOL 
a  1  CAVITY  ELEMENT,  He AOS  CAY IYI »CAV IY2 

*  2  MlHHUR  tLtMENT.  MbAOS  M1HUR 
»  J  VAMP  tLtMENl.  HEAUS  PROPUT 

a  •  APERTURE  ELEMENT,  reads  API  UR 

*  s  thermal  blooming,  reads  sluom 

a  6  interpolate  FIELD  over  smaller  area,  READS  Colour 

■  7  TEST  FOR  CONVERGENCE  OF  ITERATION,  NO  INPUT 
a  d  PLOT  FIELD  UISTRIoDI ION.  READS  IDLE 
a  0  RETURN  CONTROL  I U  CALLlNU  PHOURAM,  NO  1NPUI 

a  10  REAO  ANU/OR  aRl  IE  CO  UN  DISK.  REAOS  OISMI 

a  11  AERO  *lNOO«  R.M.S.  PHASE  MODEL.  NO  INPUT 
a  12  SCAL1NO  ROUTINE. ..MULTIPLIES  ENTIRE  FIELO,  REAOS  MULT 
a  1J  FLIPS  The  FIELD  AOUUT  THE  Y-AA1S.  NO  INPUT 
a  1*  S1NUSOU 10AL  DENSITY  VAMIAIIONS.  REAOS  SINOEN 
a  IS  HEGNIOS  FIELD  ID  LARGER  SI2E.  REAOS  REGHIU 

a  16  CO  PUNCMEU  ON  CAROS.  NO  INPUT 

a  u  MIRROR  THERMAL  8L  MODEL.  REAOS  ThHML 
a  IS  SPIDER  ROUTINE.  READS  SP10R 
a  10  A A 1 CN  ROUTINE,  REAOS  AAICUN 
a  20  PROPAGATE  IN  R-THEIA  SPACE,  READS  RPROP 
a  21  REMOVES  OR  AOUS  8ACX  6EAM  CENTER.  REAOS  CENTER 
•  22  FLIPS  THE  SEAM  AbUUT  THE  A-AAlS,  NO  INPUT 

{PLOTS  IS  TmE  PRINTER  PLOT  SELECTOR.  IPLUTSaAOCOE  PHERt  Aal  SELECTS 
R-TMETA  PLOTS.  Sal  SELECTS  ISO  iNTENS 1 1 Y  PLOT  ,  Cal  SELECTS  A  AAIS 
PLOT,  Dal  SELECTS  DIAGONAL  PLUI,  ANO  Ea|  SELECTS  Y  AXIS  PLOT,. 
EXAMPLE— IPLOTSalOOl  SELECIS  ISO  INTENSITY  A  NO  Y  AXIS  PLOTS  IN 
X-Y  COORDINATES. 

NAMELIST  /CAVTYl/  NCAVNO. 1LR.NSTE »nPL T , ZPROPI .ZPROPO 
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GOL 

NCAVNO  IS  Tut  NUMtttH  ASSIGhEO  ro  CAVITY  F OH  IDENTIFICATION  GOL 

ILH  INDICATES  DIRECTION  OF  FIELD  THROUGH  CAVITY  GOL 

a  >1  H I GHT  TO  LEFT  GOL 

a  *1  LtFT  TO  RIGHT  GOL 

NSTE  CONTROLS  TYFE  OF  VAMP  CODE  BEThEEN  SEGMENTS  GOL 

a  1  CONSTANT  MESH  alTh  SETUP  SOL 

a  i  VARIABLE  MESM  HIT*  SETUP  (EA1TS  VAMP  Al  END  OF  ELEMENT  I  GOL 

a  J  V AMIABLE  MESm  ailn  SETUP  IMEMAINS  IN  VAMP)  OOL 

a  *  OSE  EXIST I NO  PROPaGAT ING  MAlRlX  (EXITS  VAMP)  OD L 

a  S  OSE  EX  IS TINS  PROPAGA I  I NO  MAIMIX  (REMAINS  IN  VAMP)  OOL 

NPLT  CONTROLS  INfEHMEOIAfE  PRINTOUT  FOR  CAVITY  GOL 

a  ONO  PRINTOUT  OOL 

a  I  PRINT  FIELD  BEFORE  AnD  AFTER  GAIN.  ANO  GAIN  CO-EFF  OOL 

ZPHOPi  IS  PROPAGATION  DISTANCE  FROM  PREVIOUS  OPT.  ELEMENT  TO  CAV.  OOL 
ZPHOPO  IS  PROPAGATION  DISTANCE  FROM  CAV.  TD  NEXT  OPTICAL  ELEMENT  OOL 

OOL 

NAMELlST/MlHON/ANGXX.ANGYY.MAOC.OIAOUr .0IA1N. AMP0S.YMP0S.MM1R.  OOL 

X  DELTA. OISTF.OOUTY.OINY.MANOLS.PMIAST  CIOASTO 

C  OOL 

C  ANOXX  IS  TILT  IN  A-01HECI10N  -  RADIANS  (HMT  OPT.  AXIS)  OOL 

C  anGyy  IS  tilt  In  Y-01HECriuN  -  mao  Ians  taRT  OPT.  AXIS)  OOL 

C  RAOC  IS  RADIOS  OF  CURVATURE  OF  SPHERICAL  MIRROR  OOL 

C  OlAOUt  IS  OOTSIOE  DIAMETER  OF  MIRROR  OOL 

C  ol AIN  IS  iNSIUt  DIAMETER  of  mirror  gol 

C  XMPOS  IS  X -DISPLACEMENT  OF  MIRROR  FROM  OPTICAL  AXIS  OOL 

C  YMPOS  IS  V -DISPLACEMENT  OF  MIRHUR  From  UPI1CAL  AXIS  OOL 

C  RMIR  IS  hEFlECUVITY  OF  MImRUR  OOL 

C  DELTA  IS  CENIER-TU-EDGE  DIsIORIION  FACTOR  (CM)  OOL 

C  OISTF  IS  MIRMOR  OIST.  factor  (OtFLEC I IONbO I S t F* 1* l 1 . u-RMIr ) )  OOL 

C  RANULS  IS  OOTSIOE  MAUlUS  OF  ANNULAR  BEAM  (IF  APPLICABLE)  OOL 

C  DOUTY  FLAGS  THE  IYHE  OF  APERfORt  APPLIED  -  SOAPR 

C  .£«.  0  -  CIRCULAR  APtRlURE  DEFINED  AS  ABOVE  SOAPR 

C  .NE.  0  -  RECTANGULAR  APERTURE.  OlAOOT  HIGH  (X)  BY  DOUTY  »1UE  SOAPR 

C  01NY  IS  SIMILAR  TO  UOUTY  Fur  INSIOE  DIMENSIONS  SOAPR 

c  phIast  is  the  angle  of  incidence  of  the  beam  —  degrees  cioastg 

c  OOL 

NAMELIST/  PMOPGT  /  0EL2.  RUCURV .HlNOUX .HiNOOK . I  IF G. I I7R. I IPS  GOL 

c  OOL 

C  OElZ  IS  PROPAGATION  OISTANLE  OOL 

C  HOCURV  IS  RAOIOS  Of  CURVATuRE  OF  PHASE  FRONT  OOL 

C  IF  ABS(ROCURV)  LT  U.S  OSE  RAOCUH  OF  PREVIOUS  MIRROR  OOL 

C  alNOOA  IS  X-SPACE  OATA  MlNoOa  FOR  FFT  OOL 

C  Hi NOOK  IS  X— SPACE  OATA  HlNUOH  FOR  FFT  OOL 

C  IIFG  IS  A  VAMP  CONTROL  PARaMeIEH  GOL 

C  ■  1  FOR  CONSTANT  MESM  GOL 

C  •  i  FOR  VARIABLE  MESm  GOL 

C  I  1  TP  IS  ANOTHER  VAMP  CONTROL  PARAMETER  GOL 

C  a  0  NO  INVERSE  TRANFoHM  OOL 

C  •  I  INVERSE  TRANSFORM  BACK  TO  REAL  SPACE  GOL 

C  GOL 

C  I  IPS  IS  for  CORRECTION  of  PLANE  ANO  SPMEREICAL  PRASE  FMONIS  GOL 

C  a  0  NO  CORRECTION  GOL 

c  a  l  PLANAR  CORRECTION  ONLY  GOL 

C  a  2  OUAORA T 1C  CORRECTION  ONLY  (NOT  OPERATIONAL)  GOL 

C  ■  J  BOTN  GOL 

C  GOL 

NANCLISr  /APTUR/  OOOT.OlN.XPOS.YPOS.YOUT.YlN  SOAPR 

C  GOL 

C  OOUT  IS  OOTSIOE  DIAMETER  of  aperture  gol 

C  OlN  IS  INSIOE  DIAMETER  OF  APERTURE  GOL 

C  XPOS  IS  A-OISPLACEMENT  OF  APEMTUHt  FROM  OPTICAL  AAlS  GOL 

C  YPUS  IS  T-UISPLACEMENT  OF  APERTURE  From  OPTICAL  AAlS  GOL 

C  YOUT  FLAGS  The  TYPt  OF  APERTURE  APPLitO  -  SUAPR 

C  .£0.  A  -  CIRCULAR  APERTURE  OEF INEO  AS  ABOVE  SOAPR 

C  .Nt.  0  -  RECTANGULAR  APERTURE.  OOUT  HIGH  (A)  BY  YOUT  aiOE  IY  SOAPR 

C  YlN  IS  SIMILAR  TO  YOU!  FOn  INSIUt  DIMENSIONS  SOAPR 

C  GOL 

NANELISI  /CUTOUT/  OIBEAM.OvRLAP.OXXR.OYYM.MAXIT.AVCUSM.COSMF  CYCLE* 

C  CUSMFal,  FOR  NORMAL  LOADED  RESONATOR  CUTOUT  CYCLE* 

C  CUSMF  aO.  AVOIDS  BR1HNG  FIELD  ON  d  ANO  AVOIDS  NORM.  FIELD  ONLOAOEO  CYCLE9 
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c  out 

C  OlaCAM  13  THt  DIAMETER  OF  atAM  F OH  HUT  UtRATlUN  GUL 

C  OVHLAP  131  UCALCa  OVHLAP  *01  BE  AM  o0L 

C  OA  AH  IS  POSITION  Of  ITtHAUvt  atAM  MtL  .  to  OPTICAL  AXIS  GUL 

C  OWN  IS  Th t  SAME  OOL 

C  MAAtT  IS  T  ML  MAA  NUMBER  OF  lttHATlONS  t»OL 

C  OUL 

C  AVCUSM  AVtHAGtS  PHtV  lUUS  NtAl  i  ttMAllON  OUESS  IN  THE  HOPE  GUL 

C  OF  RAiPlU  CUNVtNGtnC.t.  •  .  »  0  NO  AVt  a. 5  ITS  HALF  ANU  HALF  SOL 

C  SOL 

NAMELIST/  PLOT  /  TITLt  »  nAUPLT  SOL 
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TITLt  iOLnT IF lt3  Tut  POSITION  OF  t ACH  STATION  PLOT TtO 
RAOPLT  CONTROLS  tut  1  YPt  OF  PLOT 

«  o.o  fop  a.y  plotting  ia-aais.  y-aais.  oiasonali 
*  1.0  Fow  HAUUL  PLOTTING  AT  VARIOUS  TMtTAS 

NAMELIST/  GLOOM  /  ALFA.SCP. TfHHO.2LtN.NSlEPS.lNPT.NPHUP.AAlAL.QT 

ALFA  ■  MtOlOM  ABSORB  I ION  COEFFICIENT.  CM-1 
SCP  *  MtOlOM  SPECIFIC  MtAT.O/SM-OEG  K 
T  a  MEDIUM  TEMPEPTOHEi  OES  K 

PMO  a  MtOlOM  otNSITY.  GM/CMJ  (OH  TMANSVtPSE  VEL.  IF  .SI.  1.) 

ZLtN  a  medium  thickness  along  optical  axis 

NPPOP  a  PHOPASGGATION  PAHAMETEP. ..SAMt  AS  NST t  IN  CAVITY 
NSTEPS  a  NUMBER  OF  ELEMENTS  IN  SUBSYSTEM.  .GE.  1 
INPT  a  .nE .  0  FOP  INTEMMtOlATE  F ItLO  PLOTS 

AAlAL  a  AAIAL  VELOCITY  (CM/SEC)  IF  ST  0 •  OSES  AAlAL  GLOOMING 
OT  a  BEAM  ON  TIME  F OH  MtPMAL  BOY  LAYEH  QHOM7R  IN  THANSIENI 
HLOOHING  CALCS.  IF  OT  GT  0.  OSES  TPANSIEN I  BLOOMING 

NAMELIST/  OiSKIT  /  IPEAO.  IMRilE.  IOMO  »  IAOO 

IPEAO  IS  The  OISK  NUM  To  BE  PEAO  OFF  OF . . . IFaU . . .DONE  I  PEAO 
IaPITt  IS  THE  OISK  a  TO  at  aPOTE  ON  ao...oON«T  aHl  T£ 

I OHO  IS  The  OPOtP  a  1,  PtAO  FIPST 
a-1,  «Hl IE  FINS! 

IAOO  •  I  UPDATES  I PWI TE  8Y  1  FOW  SUCCESSIVE  1  TEW A T IONS 

NAMELIST  /  MOLT  /  TPANS.  AM AG 

TNANS  IS  TRANSMISSION  OF  ELEMENT 

namelist  /  SINOEN  /  NBE AM.  AML 

NBEAM  IS  The  NUMBER  OF  CYCLES  PEP  A-CALCULATEO  REGION 
AML  IS  TnE  AMP/mL  OF  The  SINUMSUiUAL  VARIATIONS 

NAMELIST  /PEGPIO/  NGPO 

ngho  is  no.  of  field  points  across  pegriooeo  ocal 


NAMEL I S T  / t HWML/ ALPHAM . CONM IN  I ALPH AG . NHOG AS • T  AO . T I N • NtF M IN . 
ACONGAS 


C 

C  THPML  IS  THE  NAMELIST  FOM  aOONUANY  LATEN  THtNMAL  LENS  CALCULATIONS 
C  ALPMAMa  MINHOP  OIFFOSIVITY  CMSU/SEC 

C  CONWIWM  MIRMOW  THERMAL  CONUUCliViTY  MATTS/CM  SEC 

C  ALPMAG*  THERMAL  OIFFOSIVITY  Of  SAS  HtATEO  BY  MIRHOP  CMSG/SEC 

C  CONGAS*  THERMAL  CONOOC r I V I T Y  OF  GAS  HtATEO  GY  MIHWOM  MATT/CM-SEC 
C  RMOGASa  DENSITY  OF  GAS  ME A t EO  BY  MlMROM  GM/CC 

C  TAU  a  HE AM  ON  TIME  FOR  BOUNDARY  LAYER  GROWTH  SEC 

C  TIN  a  INITIAL  TEMPERATURE  OF  GAS  A  MIRHOP  OEG  K 

C  REFMImb  mirror  REFLECT IVIIY  (UBT A INEO  FROM  MIRROR  INPUT) 

C  ETHERMLtMAY  at  APPLIED  AFTEP  ANY  Ml PROM  TO  ALTER  THt  GAIN  -  PHASE 

C  DUE  To  HEATING  OF  ThE  UOIESCEnT  BOUNDARY  LAYER  AOOACENT  TO  I  HE 
C  MIRROR  SURFACE. 
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NAMELIST/  SP10R  /NSPO.a loin. ThET A. ASPC. YSPC.DIM 
C  NSPO  a  NUMBER  OF  STRUTS  IN  SPIUER  (MAA*6) 

C  mIOTh  a  mIOTh  OF  SPOKES  In  SPIDER 

C  ThCTA  a  ANGLE  OF  INOIVtUOAL  SPQKtS  OF  SPlOtR 
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150 

151 
162 
163 
IS* 

165 

166 
16/ 
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169 
1/0 
1  T 1 
i  n 
1/3 
i  /* 
1/5 
1/6 
1/7 
1Z» 
1  19 
180 
181 
182 
183 
18* 

185 

186 

187 

188 
1B9 
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191 

192 

193 
19* 

195 

196 

197 

198 

199 
100 
2U1 
202 
203 
20* 

205 

206 

207 

208 

209 

210 
211 
212 
213 
21* 
215 


C  ASPC  *  X -LUC A I  ION  OF  CtNTCH  OF  SPIDER 

C  TSPL  »  Y-LOCATIOn  OF  CENItH  OF  SPlOtR 

C  U1H  a  HUB  01 AMt  TEN 
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NAMELIST  /  AAlCON  /  CAPM.LAPANU.P0C.UiSP.71Lr 

GUL 

220 

c 

CAPM  IS  Th£  OUTSIDE  MAulUS  OF  THE  ANNULAR  EAIPACI10N  BEAM 

GUL 

221 

c 

EaPANO  EU.  .TRUE.  MtANS  tut  BtAM  IS  GOING  FROM  CIRCULAR  TO 

GOL 

222 

c 

ANNULAR  JN  CRUSS-SfcC 1  ION 

GUL 

223 

> 

RUC  *  RADIUS  OF  CURVAIOPt  OF  THE  F1ELU  IN  PHYSICAL  SPACE 

GDL 

22a 

If* 

» 

01SP  *  uISPLAtfcMENl  OF  *A1L0N  FROM  CENTER  ALONG  A-AAlS 

GDL 

22S 

" 

u 

: 

TILT  a  ANGLE  (RAUl ANSI  OF  AA  ICON  1  1L  T  FROM  DIRECTION  OF  PROP. 

V»OL 

WL 

226 

227 

: 

NAMELIST/  RPPOP  /  0EL2P .0EL2 T  H.p iNOOX.a INOOK 

GUL 

GDL 

226 

229 

: 

0EL2H  IS  PROPAGATION  DISTANCE  FOP  THE  HAUlAL  COOPOlNATE 

GUL 

230 

- 

QELZTH  IS  PWOPAGA f ION  DISTANCE  FOP  InE  ANGULAP  COORDINATE 

GOL 

231 

z 

•**  OELZk  .NE.  DEL 2  TH  means  too  APE  making  AN  euuivalent 

GDL 

232 

c 

•••  COLLIMATED  SEAM  PPOPAGaTIOn  step  in  H-THETa  COOPUiNAlES  ** 

GUL 

233 

■ 

mInuoa  is  a>space  oata  pinuup  fop  ff  r 

GUL 

23* 

: 

Pi NOOK  IS  K-SPACt  OATA  alNUU*  FOP  FF T 

GOL 

GUL 

235 

236 

c 

NAMELIST/  CENTEP  /  OSM • PE  MO V  t .PHI AP6 

GOL 

GUL 

2JT 

2JB 

z 

OSM  IS  TM£  0 1 APE  TEN  TO  BE  KtMUvtO  AND  LA  TCP  ADDED  TO  THE  MA 1N6EAM 

GUL 

239 

c 

REMOVE  FLAGS  THE  ACTION  - 

GUL 

2*0 

c 

•  THUS •  IF  The  CENTEP  Pop  T  Ion  UF'  IhE  BEAM  IS  TO  BE  REMOVED 

GUL 

2*1 

c 

.FALSE.  IF  THE  REMOVED  PUPllUN  IS  TO  BE  AOOEU  BACK  TO  IHE  BEAM 

GOL 

2*2 

c 

ph i apb  is  an  arbitrary  phase  change  aoqeo  to  the  cenImal  pohtion 

GUL 

2*3 

GUL 

2** 

• 

GUL 

2*5 

IF  (IFLAG.NE.OI  GO  TO  A/SB 

GUL 

2*6 

CALL  CPUTlMUSTpT) 

GUL 

2*7 

IQNAL«l 

GUL 

2*6 

raptp*o.o 

GOL 

2*9 

SPPPal.E/O 

GDL 

250 

CPCNTaO.O 

GDL 

251 

MSTEPaO 

GDL 

252 

PHY  a  .TRUE. 

GUL 

253 

KAUTO  a  0 

GUL 

2b* 

NIT  a  NITER 

GOL 

255 

icntl«o 

GUL 

256 

ANGXaO. 

GUL 

257 

ANGTaO. 

Gol 

256 

c 

CALL  2ERUUCAV.NCT) 

GOL 

259 

DO  1/3  1 2ERO* 1.16 

GUL 

260 

1/3 

I C A V  2 1 12ERO 1*0 

GUL 

261 

c 

CALL  2ER01GNUT ( 1, 1) .GNOT (su.BU) ) 

GUL 

262 

00  l/«  I2ERO*l.B0 

GOL 

263 

00  17A  JAEROai.sO 

GUL 

26* 

1/4 

GNOT(J2£MO.i2EWO>  a  0. 

GUL 

265 

00  3  16*1,10 

GUL 

266 

3 

SAVE  < 161 «I « 

GUL 

267 

NOB  ■  NP!S»NPY 

GUL 

266 

: 

GUL 

269 

C 

BEGIN  direction  of  optical  CALCULATIONS 

GUL 

270 

CIOOO 

CALL  2EP0  (GNOTE  ( 1 1  .GNOTE  (20 )  > 

GUL 

271 

looo 

00  1/6  UEPOat.BU 

GUL 

2/2 

i/6 

GNU  T E  1 1 2tR0 )  *0  . 

V»Ul 

2/3 

wEAOUN.CONTkl) 

uuc 

2/* 

1GATE  *  U 

GUL 

2  75 

MEAD  IIN.12AJ)  UNO  It 

GUL 

27/ 

12*3 

FORMA)  ( BO AA ) 

2/8 

lCNTLatCwTL*l 

GUL 

2/9 

1PLTS  < ICNTL)  «  IPLOTS 

S0UT7CY1 

166 

OO  BUB  1*1.20 

GUL 

260 

GNUT ( 1CNIL. U  aGNOTE ( 1 ) 

(jOL 

261 

aoB 

CONTINUE 

GUL 

262 

pR l TE 16.60 1 1 IGNOrilCNTL.il ,1*1 .BUI 

bUL 

263 

oul 

FOPMAI (//1A.JOUH*.*I/S*.20AA/IA,JOIJH*»A) ) 

GUL 

26* 

C 

CALL  CPUUMUNCP) 

GUL 

265 

c 

T1M€*( ISTPT-1NCP//100. 

GUL 

266 

c 

ISTRTal.LR 

GUL 

26/ 

c 

IF (NITER. EO.O, 01 BHITE(6.10uBI 1 IMe 

litfU 

266 

C1U02 

FORMAT <//20X.2/mCPU  TIME  SiNLt  LASt  CONTkL*. FB.B//> 

GDL 

269 

ITm  a  ITM«1 

GUL 

290 

1N1T  a  .IRUE. 

GUL 

291 

IGOLUTMl  a  1FL0P 

GUL 

292 

131 


non  on 


APPLY  AX  ICON 
140  iAxalAX*! 

if im r>  so  ro  m 

9EA0(IN*AXICUN) 

CPP ( 1 AX ) aCAPP 
XPnOHAX)  «£xpanu 
pcupvei iaxi a*oc 
TLraxx)  «  rn»r 

OSPdAA)  a  U1SP 

191  CALL  AXICNICPPI  1AX)  «XPN0  I  lAX)  .PCUPVE (lAX)  .DSP ( I AX)  •  TLT  ( IAX)  *  Y) 
GO  TO  999 


APPLY  SP10EP  O0SCUPATION  rNANSMISSlUN  FUNCTION  TO  THfc  COMPLEX 

field 

100  PfiAOdN.SPlOP) 

MPITfc(6*101>aIorH«NSPU*ASPL* YSPCtOln*  (  THt T A ( ISPO) • ISPUal ,nSP0> 

101  F0MMAK2AHU  SPIUEP  MODEL  APPLiEUI . ISM  STPUT  alOIH  a,Gl2.3*15H 
1NU.  OF  SlPUfSa* 13*  12H  X-Y  ctN  ( EPa,Gl2  .  A  .  IH,  *012.4* 

21Sh  NOB  UlAMtTEP  «*G12.*/9H  I H£T  AS  »*6g12.4) 

NSPO  «  M1N0(NSPU*6> 

102  CALL  SPtuePlMlOrM.TN£TA.NSPO*ASPCiYSPC*OlH) 

I  (Inal  >4 
GO  ro  999 


C  UNITE  COMPLEX  FltLO  ON  PUNCH  CAPOS 

160  aM I T£ (6« 163) 

163  FOPMATUGHo  CU  HAS  BEEN  aPlTtfcN  ON  PUNCH  CAPOS) 

API TE ( 4* 164 )  ( UNO  T ( ICNTL  • I ) « 1»1 ♦20) 

164  FOMHAT (2UA4) 

00  161  jal.NPY 

00  161  l *  1 • NP  T  S  •  2 
IPEF  a(j-l>»NPTS 
OUMlaNEAL (CU ( IPfcF*! ) ) 

OUHE 1 »A IHAU(CU(1 MEF ♦  I )  ) 

0UH2aPE AL (CU(1 PfcF  *1*1)) 

0UHE2« A 1HA6 < CU ( I PEF •  l  *  1 )) 

161  mPI TE (4* 162>  X ( I ) •  X  ( Jl *  OUH 1 « 0UM£ 1 » X ( 1  *  1 ) *X(J) *nuM2*0UN£2 

162  FUHMAT (2F8.2.2E12.**2F0.2.2E12.4) 

IGaTE  a  1 

GO  TO  3623 


C  APPLY  S1NUS010AL  PHASE  VAPlATlUN  TO  COMPLEX  FIELD 

420  if  (.Nor.iNin  go  ro  421 
»EaO  (IN.SINOENI 

421  aPlTE  (6*422)  N0£AM*A0L 

422  FOpHaT  (/40H  SINUSOIDAL  OtNSITY  FIELD  APPLIED  TO  THE  0tAH  /20H 

X  a  OF  CYCLES  PEP  XCALC  .IS.26H  AMP/ML  OF  VAPIATIUNS  a,F7.3  ) 
AS  a  2. *3. 14(592  •  AML 

A6  a  2.  •  3*1*1S9p  •  NPEAM  / (NPTS* (X (2) -X ( l) ) ) 

00  423  I»1*NPTS 

CFACTTa  CLXP (CHPLX (0 •  •  AS  •  SIN  (A0GAII)))) 

DO  423  jal.NPY 
IJ  a  I  ♦  (J-1)*nPTS 

423  CU(IJ)  a  CUdJ)*CFACTT 
GO  TO  999 


C  APPLY  GOL  CAVITY  TO  COMPLEX  FIELD 

10  I CAV* ICAV* 1 

IFl.NOT.  INI T)  GO  TO  11 
PEaO(IN.CAVTYI) 

I01P ( 1 • ICAV )  a  NCAVNO 
101P (2* ICAV )  a  1LP 
I01P (3* ICAV >  a  nSTE 
ID  IP (4 . ICAv )  a  NPLT 
2L1 ( ICAV ) a2PP0P 1 
2L0 ( ICAV ) ■! PHOPO 

11  NEaCAV  a  i) 

NCS  ■  MAXO(lUlPdtlCAV)  *NCT ) 

IF(NCS.Gr.NCT)  nEmCAVm l 
NCT  «  NCS 

mP 1 TE  (6*121  IOlP(l.ICAV) *1DIP(2*ICAVI * ID1P (3* ICAV) 
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12  FUMM*r  (///16M  CAVITY  NUMBEH.IJ.17H  0 IRECT ION 

.12  .29H 

GOL 

*36 

X  PHOPAGATlNG  PAHAMETER  .12  n 

GOL 

*39 

aMlTE(6.lS)  2LIUCAV).  2LOUCAV) 

GOL 

*«0 

lb  FORMAT  l*BNOAOOiUONAL  PHOPAGA f ION  OISTANCES  AT  CAVITY 

ENOS/ 

GOL 

**1 

X  U.*H2Lla.G12.5.oX.*M2L0a.G12.S) 

GOL 

**2 

call  CAVlfYUOlPU.ICAV) . lUlN (2. ICAV) .NEaCAV . INI T . IOIH < 3* ICAV ) . IN. 

Sol 

**3 

X  NE5THT ♦  IOIMU.UAV)  .2L1  (ICAV)  .2LOUCAV) ) 

GOL 

444 

IFU01R13.1CAV) .LE.3J  IN  7*1 

GOL 

**s 

00  TO  999 

GOL 

446 

GOL 

**7 

RE AO  ANO/OM  «Mire  COMPLEX  FltLO  ON  OIMECI  ACCESS  FILt 

GOL 

**6 

100  NOS  *  NOS  ♦  1 

GOL 

44V 

IF  l.NQT.IMT)  OU  TO  101 

uOL 

450 

HEAO  UN, 0  ISM  T> 

GOL 

*51 

IOSK ( 1 t NOS)  *  IHEAO 

GOL 

*52 

IOSK (2. NOS)  a  laRlTE 

GOL 

*53 

IOSKU.NOS)  a  10MU 

GOL 

454 

IOSK (*. NOS)  a  [tOO 

GOL 

*55 

00  TO  10T 

GOL 

*56 

1UI  IHEAO  a  IOSKU.NOS) 

GOL 

*57 

10SKI2.NOS)  a  I0SKI2.N0S)  •  IOSK (*. NOS) 

GOL 

*56 

iMNtrt  a  IOSK (2.N0S) 

GOL 

*59 

I  OHO  a  IOSKU.NOS) 

GOL 

460 

107  IF  (IHEAO. EO.O.ON.lOMU.EO.-l)  00  TO  102 

GOL 

*61 

HEAO  (IHEAO)  (CUU2). 12*1. NOB) .A.OHA.OMY. NITER 

GOL 

*62 

VH l TE (6. 1  OS) IHEAO 

GOL 

*63 

105  FONMAT (//10X.26MCU  NAS  SttN  HtAO  FROM  UNIT.I3//) 

GOL 

*6* 

HE  *1  NO  IHEAO 

GOL 

*65 

102  IF  ( IaRl  IE.tO.0)  00  TO  103 

GOL 

466 

aMITt  (IwMITt)  (CO (12) .12*1 .N08) . X.OHA.OHY .Nl TEH. SAVE 

GOL 

*67 

aHITE  IS* 106)  IHHlTE 

GOL 

*66 

106  FORMAT (//10X.27MCO  NAS  BEtN  SMITTEN  ON  0NIT.I3//) 

GOL 

*69 

Ht«lNO  1MMITE 

GOL 

*70 

103  IF  (IHEAO. EU.O. OH. IOHO.EU.l)  GO  TO  999 

GOL 

*71 

HEaO  UHtAOl  (CUU2)  .Uai.NOtt)  .X.OHA.OHY. NITEH 

GOL 

*72 

SHITE(6. 105) IHEAO 

GOL 

♦  73 

REalNO  IHEAO 

GOL 

•  7* 

00  TO  999 

GOL 

*75 

GOL 

*76 

AMPLY  AEH00YNAM1C  SINOOH  TO  COMPLEX  F IELO 

GOL 

*77 

3*0  aRITE  (6.3*1) 

GOL 

*76 

3*1  FOHMAT  (//Tan  aEHO  alNOUa  NUOEL  NAS  SEEN  APPLIEO. . .HMS  PHASE  DIST 

GOL 

*79 

X0HT10N  IS  THE  MOOEL  /) 

gOL 

*60 

CALL  AEHOM(CU.NprS.NPY) 

GOL 

*61 

GO  TO  999 

GOL 

♦62 

GOL 

*63 

apply  fielo  scaling  factor 

GOL 

*6* 

350  ML  f  *ML  T ♦ l 

GOL 

♦65 

IF  (.NOT.  INIT )  GO  TO  351 

GOL 

♦66 

mEaO  1  In* molt ) 

GOL 

*87 

ABC ( 1 .ML  1.9) aTRANS 

GOL 

*68 

ABC  1 2  .  ML  T  .  9 )  aXM  AG 

GOL 

*89 

351  aHITE (6.362)  ABC ( l .MLT .9) . ABC (2 .MLT .9) 

GOL 

*90 

STHANS  a  SGHriABC(l.MLT*9) > / ABC (2.MLT .9) 

GOL 

*91 

352  FOHMAT  (/*3H  TMt  FIELO  MAS  BttN  SCALEO  BY  THE  FACTORS 

•2F6.3/I 

GOL 

*92 

00  353  lal.NOB 

GOL 

*93 

353  CU(I>  a  CU ( 1 ) •STRANS 

GOL 

*9* 

00  357  I  *  l.NPIS 

GOL 

*95 

357  XU)  a  XU)  •  ABC(2.MLT.9) 

GOL 

*96 

RM1RH  a  ABCU.MLT.9) 

GOL 

*97 

1GNAL  a  5 

GOL 

*98 

GO  TO  999 

GOL 

*99 

GOL 

500 

MAKE  PRINTER  plots  OF  COMPLEX  FItLU 

GOL 

501 

SO  IPTTalHTT.l 

GOL 

502 

IF  (.NOT. INI f)  GO  TO  82 

GOL 

503 

HEAOUN.PLOT) 

GOL 

50* 

HEAO  15.12*3)  TITLE 

GOL 

505 

OO  S3  N0a).2U 

GOL 

506 

S3  APLTUPI  I.NO)aTlTLE(NU) 

aOL 

50  7 

82  aHITE  (6.6*1  ( APL  f ( 1PT  T .NOI .  Nya  ( .20) 

GOL 

506 
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*4 

FOHMAT  (IH1.30A.20A*  //I 

GOL 

S09 

IK  (HAOPC  1  .EO.O.U)  C ACL  IPLUl  mm 

GUL 

sto 

IF  (HAOPLf.NE.O.O)  CALL  IPCJT  111111) 

GUL 

su 

if  UMur.iNtnso  ro  yb 

GOL 

S12 

SO  TO  1000 

GOL 

S13 

•  ■ 

GOL 

SI* 

FLIP  THE  COMPLEX  FIELD  ABOUT  I me  t-aais 

GOL 

SIS 

36  U 

NP  a  NPTS  /  C 

GOL 

S16 

wHITE  (6.361) 

GOL 

SI  7 

3ft  1 

FOhMAT (/52H  THE  F  IElD  has  JUST  SEE"  FCIPPEO  ABOUT  THE  Y-AXIS  1/) 

GOL 

SIB 

00  362  jal.NPY 

GOL 

S19 

00  362  1*1 .NP 

GOL 

S20 

12  »  1  •  (J-l)  •  NPTS 

GOL 

S21 

13  6  1  —  1  ♦  NPTS  •  0 

GOL 

S22 

CUO  a  CU  <U> 

GOL 

S23 

CO ( 12)  a  CU ( 13) 

GOL 

62* 

362 

CU ( 13)  a  CUO 

GOL 

525 

SO  TO  999 

GOL 

52ft 

SOU77CV1 

lft9 

3ft5 

IF (NMT.Nfc.NMTS)  00  TO  099 

SOU77CVI 

170 

NPaNPTS/2 

SOU77CTI 

171 

wH I Tt (6.36ft) 

S0077CT1 

172 

3ftft 

FOHMAT (/*ftN  THE  FIELU  HAS  BEEN  FLIPPED  ABOUT  THE  X-AXIS/) 

SOU77CT 1 

173 

00  36?  I»l .NPTS 

S0077CY1 

17* 

00  3ft?  J*1 »NP 

S0077CY1 

175 

12*1. ( J-I ) wNPTS 

SOU77CTI 

176 

1 3a 1 «NOB- J*NP  T  S 

SOU77CY 1 

177 

CUO«CU<  Id 

SOU7  7CY1 

178 

CU ( 12) aCU (13) 

SOQ77CY1 

179 

3ft? 

CudJiaCUO 

SOU77CYI 

1B0 

GO  TO  990 

SOU77CY1 

1B1 

♦ 

GOL 

S27 

APPLY  HtHNOH  THANSMISSIUN  FUNCTION  (0  THfc  COMPLEX  FIELD 

GOL 

S2B 

20 

IMIR  a  IMIH-l 

GOL 

S29 

IF(.NOT.  INIT)  GO  TO  21 

GOL 

S30 

HEAO(IN.MIMOH) 

GOL 

531 

ABC (l.IMIH.2)a  AMUXX 

GOL 

632 

ABCI2.IMIH. 2)a  ANGYT 

GUL 

533 

ABC(J.IM1H,2)»  HAUC 

GOL 

53* 

ABC  (a.  IMIH.2)  •  OlAOUI/2. 

GOL 

535 

ABC (5. IMIH.2) ■  QlAlN/2. 

GOL 

S3ft 

ABC (6. IM1H.2) a  XMPUS 

GOL 

537 

ABC( ?.IMlH,2)a  YMPOS 

GOL 

53B 

ABC (B.IHIH.2)»  MM 1 H 

GOL 

639 

ABC(9.lMlH.2)a  OtLTA 

GOL 

5*0 

ABC(10.1M(H.2)a  UlblF 

GOL 

5*1 

ABC (11. IMlH.2) a  HANULS 

GOL 

5*2 

ABC ( 10. I M lH .* ) aUOUT  T/2 • 

SUAPH 

27 

ABC 111.IMIH»*)bUINY  /C. 

SUAPH 

28 

ABCd2.IM(H.2)«  HHlAbl 

Cl  U  AS  TG 

b 

Cl 

CALL  MIHHOH(ABC 11. IMIH.C) .wBCICi IMIH.C) .ABC (3. IMIH.2) .ABC (*♦ IMIH.2 

GOL 

5*3 

1) .ABC (b. 1M1H.2) .ABC (6. IMIH.C) . ABC ( 7 • IMlH «C I . ABC (B. IMIH.2) • 

GOL 

5** 

2  ABC (9. IMIH.C) . ABC (10. IMIH.C) .ABC d 1.1HIM.2) • ABC ( 10. IM IH.*> . 

SUAPH 

29 

3  A«C  dl  .  IM1H.A)  .ABC  (12. IMih.C)  ) 

ClUASTG 

7 

HAhThwAHC (A. IM1M.2) 

GOL 

6*6 

WHITE (6.23)  (ABCIIMH. IMIH.C) . 1MHA1.3) . ( ABC (IMH. IMIH.C) . IMHaft, U ) 

SUAPH 

31 

Cj 

FOHMAT (///BH  ANGAA  *.G12.*.6H  ANOYY  *.G12.A.I?H  HAOlUS  OF  CUMV  *.G 

5*6 

A 12.*/  »3H 

SUAPH 

32 

X  POSITION  OF  MIHHOH  4.H.I.  0HI1CAL  AXIS  ■  ( .F6. 3. IM..F6.3, 1H)  / 

GOL 

550 

*22h  MIHHOH  HtFLfcCI 1 V I ( Y  *.FB. 3. SA/ 

GOL 

651 

X3?H  MIHHOH  bHMfcHICAL  DISTORTION  FACIOH  a.tlC.*/ 

GOL 

552 

X3?M  MIHHOH  FLUA  OfcP .  01S  TOM  T IUN  F AC  1  OH  «.t!2.*/. 

GOL 

553 

X3?H  OUTSIDE  HAUIUS  OF  ANNULAR  BEAM  *»E12.*/> 

GOL 

55* 

IF  (ABCdO.  IMIH.2)  ,GT. -10.)  Gu  TO  6316 

EOiPMH 

1 

WHITE (6.3913) 

EOIPMH 

2 

3913 

FORMAT (SBN  tod  LOSS  ACCOUNTED  FOM  Ih  ASSOCIATED  MIHHOH  CALCULATION 

EOIPGH 

3 

XS  ) 

fcOlPGH 

4 

GO  TO  3623 

EOIPGH 

5 

8316 

CONTINUE 

EOIPGH 

6 

I0NAL«2 

GOL 

555 

IF ( ABC  I*. IMIH.2) .LE.O.O.ANO.ABC (S. IMIH.2) .Eg. 0.0)  1GNAL*S 

GOL 

55ft 

HMIHHaABC (6. IMIH.2) 

GOL 

557 

GO  TO  999 

GOL 

558 
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c 

♦ 

GOL 

SS9 

c 

apply  transmission  function  of  a  uuIesceni  thermal  gradients 

GOL 

soo 

c 

near  a  mirror  surface 

GOL 

S41 

170 

IThRML  ■  IIHRML  •  1 

GOL 

544 

ifi.nut.  iNin  00  ro  1/1 

GOL 

S43 

RtAOllN.lHRML) 

GOL 

544 

A«C  <  l  9  I  THHML  9  7  I  a  ALPHAM 

GOL 

545 

AbC (£9 1 THRHL  9  7 )  a  CONM1H 

GOL 

544 

ASC  1 3  9 I r HRML 9  7 ) *  ALPHXG 

GOL 

547 

AbC  (  A •  1  7 HRML  9  7  )  a  HHUOAS 

GOL 

54b 

AbC IS* 1 THRML 9  7)  a  7 AU 

GOL 

549 

AbC (69 1 THRML. 7)  a  TIN 

GOL 

5/0 

AbC ( F • I TMRML9  7 ) a  REFM1H 

GOL 

571 

AbC ( b 9 1 T HRML 9  7 ) »  CONGAS 

GOL 

574 

171 

CAUL  ThERML  (AbCd  9  ITHRML.  71  9  AbC  (49  1  f  MMML*  71  9  AbC  (3.1  THMMLf  7 )  9  AbC  (At 

GOL 

573 

1IThRML.7>  .AbCIS.UHRML./)  9  AbC  (4.  1 T HHML  t  7>  t ABC  (  7 1 1 T HRML 9  7 )  9 

GOL 

57* 

4 AbC (8.  1  fHRML  9  7)  ) 

GOL 

575 

IONAL»l 

GOL 

574 

GO  TO  999 

GOL 

577 

c 

♦ 

GOL 

57b 

c 

APPLY  RHOPAGATION  ALGORITHM  TO  COMPLEX  FIELO 

GOL 

579 

30 

istcp  ■  isrtp*i 

GOL 

5S0 

IF (.NOT.  INI  II  GO  TO  34 

GOL 

5b  1 

REAOdN.PROPGCl 

GOL 

Sb4 

IF (IIPS.GT.il IIFG»4 

GOL 

5b3 

AbC ( 1 . ISTEP . 3)  *  OELZ 

GOL 

5b* 

A»C (49 ISIEP93)  a  RUCUHV 

GOL 

bbb 

AbC I39ISTEP9J)  a  a i NOOX 

GOL 

5B4 

AbC(A9lS(£p90l  a  a 1NUOK 

GOL 

5b7 

AbC (39 ISiEP.31  a  HFG 

GOL 

bbb 

AbC(4.ISIEP. Jl  a  1 1 TR 

GOL 

bb9 

AbC  (  7  9  IS  I  EP  9  3 1  a  UPS 

GOL 

590 

Si 

IFO  «  ArtClS. (STEP9JI «.00l 

GOL 

591 

IfH  a  AbC(6.IS(EP9 Jl *.U01 

GOL 

594 

IPS  a  AbCl7.lSTEP.Jl9.UOi 

GOL 

593 

RR1TE  (4.3*1  (AbCdSf.ISfEP.JI  .ISTal.AI  . IFG. I TR . IPS. ANGA . ANGY 

GOL 

59* 

3* 

FOMHATI///  91H  l>El4  HAU  CURV  RlNOOX  alNOOH  IF G 

GOL 

595 

X  lTW  IPS  ANGA  ANGY  /  *F l U .At I b. SX . I»9 SA 9 16. 

GOL 

594 

ASA.4F10.S//I 

GOL 

597 

ICOHE  a  U 

GOL 

598 

IF  (IFG.EI.-SI  GO  TO  Jl 

GOL 

599 

IF  (  AbS  ( »8C  (E.ISTEP.J!  I  .LI  ..SI  AbC  14. 1STEP.3I  aHAUCUR 

GOL 

400 

***£ 

CALL  STEPIAbCU.lSTEP.JI  .AbC  (4.  IS1EP.  Jl  9  AbCU.lSTEP 

GOL 

601 

1.31 .AbC (*. ISTEP.J1 . IFG. 1 IH 9  IPS. ANGA . «NGY . 0 9 1 CORE I 

GOL 

404 

IF  ( ICORE.EU.Ill  INT  a  i 

GOL 

403 

MSTEPal 

GOL 

604 

GO  TO  999 

GOL 

405 

31 

1F(  MT.EU.O)  UNITE  (b.3191 

GOL 

404 

3  19 

FORMAT (SbHu  tNIERlNG  CURE  BEFORE  STEP  CALLEOI  CALCULATIONS  STOPPED 

GOL 

40  7 

A) 

GOL 

408 

IF ( lNT.EU.01  STOP 

GOL 

409 

c 

CALL  CORE ( AbC (l.iSTEP.Ol.ilR.UI 

GOL 

410 

ICOHEal 

GOL 

411 

GO  TO  *44 

GOL 

414 

c 

♦ 

GOL 

413 

c 

APPLY  APERTURE  transmission  function  TO  COMPLEX  FIELO 

GOL 

41* 

AO 

IAP  a  1AR*1 

GOL 

415 

A 

if (.not.  in m  go  ro  *1 

GOL 

414 

REaOIIN.APTURI 

GOL 

417 

AbC (l. IAP. Ala  OOUT/4. 

GOL 

418 

AbC 14. IAP.aI a  OIN/4. 

GOL 

419 

AbC (3. IAP. Ala  APOS 

GOL 

440 

AbC 1*. IAP.AI a  YPOS 

GOL 

441 

AbCIS. IAP.AI aYOOl/4. 

SUAPR 

33 

AbC (4. IAP.AI at  IN  it . 

SOAPM 

3* 

•l 

IFTOOOT.LT.U.O.ANU.OIN.LT.U.U) 

GOL 

444 

1CALL  SLIYERTABCTI 9 IAP.AI .AbC (4 9 I AP. *1 9 ABC (3. IAP.AI . AbC (At IAP.AI 1 

GOL 

443 

IF  (OOUT  .UC  .II.O.  ANO.O  IN.Gt.u.UI  CALL  APHTR  (ARC  1 1  9  IAP.AI  .ABC14.UP.* 

SUAPR 

35 

A) 9 ABC (3. IAP.AI .AbC (At IAP.AI .AbCIS. IAP.AI 9 AbC (4. I AP . A 1 1 

SUAPR 

34 

IF (OOOT.GT, 0.0. ANO.O IN. GE. u. U 1 RAPTRaABC ( 1. IAP.AI 

GOL 

444 

IGNAL** 

GOL 

430 

GO  To  999 

GOL 

431 

y  jo 


OOL 

602 

AMPLY  THtMMAL  BLOOMING  tMANSMiSSlUN  FUNCIION 

TO  COMPLEX  F 1ELU 

OOL 

603 

50  IOK  a  I0K*1 

SOL 

636 

IF  (  .Nor.  INI  T  )  00  ro  51 

OOL 

6JS 

«EA0( IN. BLOOM) 

OOL 

636 

ABCd.lUK.5)  ■  ALFA 

OOL 

637 

ABC  (2.  10**9)  a  SO 

OOL 

638 

ABCI3.10K.5)  a  r 

OOL 

639 

ABC  I  A. I OK. 9)  ■  MHO 

01)L 

660 

ABC (9. 10K.5)  ■  ZLtN 

OOL 

661 

ABC  16* 10ft. 5)  a  N5TEM9 

OOL 

662 

ABCI7.IOK.5)  ■  INPT 

OOL 

663 

ABC  (B«  IOK, 5)  a  nMHOM 

OOL 

666 

ABC (V. IOK. 5)  ■  AA1AL 

OOL 

665 

AaC l 10* I0K.5) •  or 

OOL 

666 

91  NSTEMS  •  ABC (6. IOK .9) ••090 i 

OOL 

667 

INPT  a  ABC  (7.1  UK  .91*.  0001 

OOL 

666 

I22Ta«HClS.luK.5>«.(>001 

OOL 

669 

CALL  TBLOOH  t ABC ( 1 . 1 OK • 9  > • AoC 1 2 . 1 OK . 9 ) . ABC ( 3 . 

I0K.5) .ABC (6. 10K.9) t 

OOL 

650 

A  ABC  (5*  IOK.5)  .NSr£MS«INPT.l22r,ABCl9«lUK.9>  . ABC ( 10 . 10K.5 ) ) 

OOL 

691 

OO  TO  W9 

OOL 

692 

OOL 

653 

iNrENMOcATE  FttOBACK  F  ItLL)  ►  Huh  mESUNATOM  MOUE  FOB  U9E  lH  NfcA  f 

OOL 

696 

1 ItHATION 

695 

60  IF  (  .NOT  .  INI  T  .A.U).  .NOT  ..nr  )  00  TO  61 

OOL 

656 

iM.iAor.iNiT)  uo  ro  6/ 

OOL 

69  7 

MfcAOl IN. Cutout) 

OOL 

65B 

ABC  U.  1.11  ■  UIBtAM 

OOL 

699 

ABC (2.1.1)  «  OVHLAM 

OOL 

660 

ABC (0.1.1)  a  OA AM 

OOL 

661 

ABC (6*1.1)  a  OYYM 

OOL 

662 

ABC (9. 1.1)  ■  AVCUSM 

OOL 

663 

I00LI99)  a  lABSIHAAll) 

OOL 

666 

6 7  OCIBM  a  ABC  (2.1.1)  #*BC  (l,l<l>/2. 

OOL 

665 

OIBEAH  a  ABC (1.1.1) 

OOL 

666 

AOEL  a  JC 18N/NMTS*2 . 

OOL 

667 

AK(1)  a  -OCIBM»aO£l/2. 

OOL 

668 

00  62  IONm2.NMTS 

OOL 

669 

62  AK(ION)  a  AK ( ION-1) *A0EL 

OOL 

670 

TATll)  a  A (2)  -  A(l) 

OOL 

671 

T AY  ( 2)  a  X  (2)  -  Ad) 

OOL 

672 

TAY(3>  a  NPY 

OOL 

673 

T AY  (6)  a  NMTS 

OOL 

676 

OO  66  MSMal.NPY 

OOL 

675 

66  TXY(6«MSH)  a  XIMSPXOHY 

OOL 

676 

NPY6aNPV*6 

OOL 

677 

00  660  MaTal.NPTS 

OOL 

678 

660  YAY (NPY6  «  MST)  a  AIMSTXUNA 

OOL 

679 

61  AYC  a  ABC (5.1.1) 

OOL 

680 

POaA  a  1). 

APN27 

1 

0A2> ( A (2>  —A ( 1 ) 1/2. 

AMM27 

2 

0B2*0C I SM 

APH27 

3 

00  621  jal.NBY 

APH27 

4 

IF  ( ABS (A (0) ) -0A2.0T .OB2)  00  10  621 

AMM27 

5 

FCYal.O 

APN27 

6 

IF  (ABS(AU) )  ♦0A2.Lr.0B2)  00  To  627 

APM27 

7 

FCYaUWZ— 1 AOS ( A ( J) ) -OA2) 1 /OA2?2« 

APM27 

8 

627  Jl  a  (j-l)  •  NMTS 

aP«2  r 

9 

OO  620  lal.NPTS 

APN2T 

10 

IF  (ABS ( A ( I ) ) -0A2.0T . 0B2)  00  10  620 

APN27 

11 

FCAa  l.o 

APM27 

12 

IF  ( ABS ( A ( l ) ) *0A2 .Lt .UB2)  00  TO  62B 

APH27 

13 

FCAa (0B2— ( AOS (All) ) — 0A2) ) /OA2/2 . 

AMM2  7 

16 

62B  IA  a  Jl  *  l 

APN27 

IS 

MOM  A  a  MOM  A  •  CUdA)  •  CONJG ( CU ( l A ) 1  *  FCA  • 

FCY 

APP27 

16 

620  CONTINUE 

AMM27 

17 

621  CONTINUE 

APM27 

18 

POaA  a  PUMA  •  (A (2) -A (1 ) ) »*2  /  1000. 

APM2T 

19 

MAAAa  9 

OOL 

681 

IZaO 

OOL 

682 

IF  (NMTS.Nt.NMY)  U»l 

OOL 

683 
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ooaa  ■  a. 

ANN  20 

12 

00  03  NYaI.nNY 

60L 

0«* 

YInF  •  AMNY)  •  ABC (0*1*1) 

(ML 

005 

00  03  NX*1.NNT9 

(*0L 

005 

MAAAaMAAA*! 

(ML 

OB  7 

AlHN  a  AIUMA)  •  ABCU.1.1J 

60L 

OBB 

CALL  lNTtHH(TXY.AlNN.YlNN.LU.2.CFFL(NAAA)  >12) 

ANN  20 

13 

03 

PU»H  a  NUMB  *  CFFL<HAAA)*CuNJO<CFFL<HAAA) I 

ANN20 

1* 

NU»ri  a  NUMB  •  ( AM 2 I -AA l 1 ) 1 /  loOU. 

ANN20 

19 

FXFLT  a  90NT (RUmA/NUMBI 

ANN  20 

10 

00  023  1 A  a  l.NOtt 

ANN  20 

17 

0  23 

CFFL(IX)  a  CFFL(IX)*FXFLI 

ANN20 

IB 

■Mire  (0.02*1  PuaB.NOMA 

ANN20 

19 

62* 

FUHMAI  i/ 1 0A.2bnFlfc.L0  AUUUiTtU  FWUm  kOwEX  OF  tfH.it* H  TO  .F8.2/I 

ANN20 

20 

IF  (CUSNF .Nt.O.)  00  TO  992* 

CYCLt9 

6 

UaO 

CYCLtS 

7 

00  90*3  IXal.NRlS 

CYCLES 

B 

A(lAI  a  AMU) 

CYCLES 

9 

OO  50*3  IXYal.NNY 

CYCLES 

10 

U  •  12  *  1 

CYCLES 

11 

9«*3 

CU(U)  a  CFFLU2) 

CYCLES 

12 

60  TO  999 

CYCLES 

13 

992* 

CONTINUE 

Cycles 

1* 

IF  (ICAV.67.0)  60  TO  091 

(ML 

090 

FMAXao. 

6UL 

091 

00  092  INal.NOB 

60L 

092 

FNAGaCABblCFFLUN) ) 

60  L 

093 

IF (FNAG.LT.FNAAI  60  TO  092 

60L 

09* 

FHAXaFNAO 

60L 

095 

INUXalH 

6UL 

090 

092 

CONTINUE 

60L 

097 

00  093  INal.NOB 

OUL 

090 

093 

CFFL < INI *CFFl 1  INI /FNAA 

60L 

099 

BNlTE(6.06*l)  fnaa 

60L 

700 

00*1 

FONNAT <//*7H  CUTOUT  FIELO  ANNLHU0E9  HAVt  BEEN  OIVIOEO  BY  t 

OUL 

701 

X  Fd.*.//I 

OUL 

702 

091 

CONTINUE 

OUL 

703 

aHITE  <71  (CUIUI  •Uat.NOBI 

OUL 

70* 

HEalNO  7 

OUL 

705 

IF ( .NOT .HCSTHT • AND* IN IT  1 60  TO  030 

OUL 

700 

NEAQ  (Bl  (CF1L21U)  .Ual.NoBI  »AOUN,OUUMZ,OUUNJ,NOUUN»bAVt 

OUL 

70  7 

NEalNO  d 

OUL 

7  OB 

030 

SUNENMaO.O 

OUL 

709 

ICNT  ay 

OUL 

710 

NWT AMNNT9/ 10 

OUL 

711 

NBT8aNNT9/* 

OUL 

712 

NaTCaNPTb-NBTB 

OUL 

713 

NMTOaNHTS/2 

OUL 

71* 

hHI TE  <0.0931 

OUL 

715 

003 

FONNAT <**HOCU TOUT  FIELO  CONNAHISON  To  OEIENNINE  AY6AIN/I 

OUL 

710 

*N1 TE  <0. 7 1 1 

OUL 

717 

/I 

FOMNaTIIONU  point  .0X.12N  CURMENT  »*X.12H  NHEV10U9  .*X»12H 

OUL 

718 

1 

<  PERCENT  /ION  TE9TE0  . OA. 12N  VALUE  .AX.12H  VALUE  t 

OUL 

719 

A*A.9H  CHANGE//) 

OUL 

720 

ICEK$«0 

OUL 

721 

00  09  lABCaNaTB.NaTC.NMTA 

OUL 

722 

ICNTa ICNT  * l 

OUL 

723 

EHNSNaO  t 

OUL 

72* 

OUNaC AB9 <  CF  FL 1 1 ABC ♦ <  Na  T  0- 1) »NN T  S 1 1 

(ML 

725 

OUNCaCABb < CF IL2  < I AbC • < Na  T 0- 1 1 *NR TS» » 

OUL 

720 

IF<.(VUT.N€STNr.ANU.INIT)UUNtai.U 

OUL 

727 

IF  < OUNE  ,n£  .  U .  I  tNNSrta  <  LIUM-uUNt )  /UOMt 

OUL 

728 

IF (ABSttNHSNI .OT.O. 10) ICtAO*! 

oUL 

729 

SUNCNNaENNSN»42»SUNtNN 

OUL 

730 

aN I TE  <  0.090 1 1 ABC . Na  T  0 . Oum . uuat • Enmsn 

OUL 

731 

090 

FONNAT (ON  CU9NI.I3.1N..12.1HI .** .6 12. 9.4 A .612.9. 7X.2NF6.2I 

OUL 

732 

09 

CONTINUE 

OUL 

733 

IF  (ABC (9. 1.11 .EO.  0.  .ON.  <N1  IEH.tU.O.ANU.AAuTO.E'J.0)  1  60  TO  09 

OUL 

73* 

IF (ABC <5. 1.11 .6E.0  « I  60  TO  OB 

OUL 

735 

ENHSSaSOH T  <  9UNERN/ ICNT) 

OUL 

730 

AVC  a  .9  -  EHH99 

9007 7CY1 

1B2 

IF (CHH5S.0I .0.61  AyC«V.2 

OUL 

73B 

IF  (tRRS9.LT.. 11  AVC  ■  .7 

9U077CY1 
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0*1 rt (6*610) E*«SS.A*C 

ODL 

/AO 

610 

FORMAT  1//1  7A*29hF  IELU  AVtHAOiNO  NAS  BtfcN  USEU/lOA 

.10HHMS  t*HO*a. 

OUL 

7A1 

1  Fa.*,5A*12HAVCu5M  v)5EUa*F~8.*//) 

ODL 

7A2 

66 

CONTINUE 

OUL 

7*3 

00  75  MAaltNOa 

ODL 

7*4 

A AN  a  CABS(CFFLIMA) 1 

SOOT  re Y1 

IB* 

AAOLO  «  CABS(CFIL2(HA> ) 

SOU77CY 1 

IBS 

75 

CF'F'L(MX)  •  CFFL(MX)  *  (AYC»AAULU*<1.-A¥C)»XAN)  / 

A  AN 

SOU  7  7  C  Y 1 

1S6 

69 

MY  »  Nl TEH* 1 

OUL 

7*6 

HEAD!/)  tCu  (  U)  •  U«l  .NOB) 

OUL 

7*7 

HEoINO  7 

OUL 

7*6 

a*ITE (6*063) 

ODL 

7*0 

663 

FORMAT ( lZX.33MCONv£KOENOt  IE5T  K  1ELU  COMHAHISON/I 

ODL 

750 

ICEKaU 

ODL 

751 

SMERHaO.O 

OUL 

752 

ICnToO 

OUL 

753 

OMITfc (6*  71) 

ODL 

75* 

00  660  IABC«N0TB«N0TC*N0| A 

OUL 

755 

ICnT«ICnT»1 

SOL 

756 

£**•0. 

OUL 

757 

DUMaCAHS (CO ( U8C* (NOT 0-1 1 ‘NUTS)  1 

OUL 

756 

OUMfaSAVt ( ICNT) 

OUL 

759 

SAVE ( ICNT ) aOOH 

OUL 

760 

IF <.NOT.Ht57*T.ANO.INlT>UUMt«1.0 

OUL 

761 

IF(DUM£.NE.O.)  t**» (OUN-OOMt) /OUMt 

ODL 

762 

IF(AB5(E**> .OT. 0.021 ICEKal 

OUL 

763 

SM£rt*aE****2*SMt** 

ODL 

76* 

0*1 TE (6*661 1 i ABC* NO  1 0»0UH* uUHt ,  E  ** 

ODL 

765 

661 

FONMAt  (AH  CU(*I3*lH..l2*iM>«*A,0i2.5.*A.6iZ.5.7x, 

2*F  6.2) 

ODL 

766 

660 

Continue 

ODL 

767 

IFdCtKS.EO.ll  ICEKal 

OUL 

76B 

EMHSSaSO*  T ( SHE**/ l CN I) 

OUL 

769 

oH I TE (6*662) t**SS 

OUL 

770 

6o2 

FOhHA  f ( / 15A  « 1BNHHS  t**OM  )UH  CU  a, Fa.*/) 

OUL 

771 

0*1  TE  (SI  (CFFLIU)  *U»1*NU8)  .  AK  .  ABC  1  3.  1  .  1 )  •  ABC  ( —  • 

1.1) .MY.SAVt 

OOL 

772 

»t«lNO  S 

ODL 

7  73 

0H1TE  (6*661  (ABClJVCX.l.ll *JYCX*1*S1 

ODL 

77* 

66 

FOMMAT  (  //62H  lNTt**ULAI  IONS  FOK  T*t  FIELD  OVE*  0 l BtAM*OV*LA* 

OUL 

7  75 

i 

A  HAVE  OUST  BttN  HtHFUHMtu  /SOM  at AM  UlA 

OVERLAP  A*0 

ODL 

776 

AS  Y*OS  KltLU  AVtHAOt  /  ZA.bOiZ.S  //  > 

OUL 

777 

OUT  a  .FALSt. 

OUL 

778 

00  TO  9 VO 

ODL 

779 

♦  • 

t*UL 

760 

INCREASE  THt  NUMBt*  OF  OHIO  HUIN1S  Fu*  COMHLtX  FlfcLO 

tiOL 

761 

iso 

HtAOIIN*H£(jHlO) 

OUL 

762 

N*ISS  «  NHT5 

OUL 

763 

NPYS  *  N^Y 

OUL 

76* 

if iNo*o.or.N*rs)Go  10  isi 

<iOC 

785 

00  TO  7  3* 

OUL 

786 

1S1 

CALL  *6*U(NOhO) 

OUL 

76  7 

NOU  a  NHTS»N*T 

l*UC 

7  66 

OHlTt (6*152 INHTSS. NHYS*NH IS. NHT 

OUL 

789 

152 

FORMAT (///SA.21N  YOU*  0* lOlNAL  K IfeLO ( . 1 A* lH»* 13.JVHI  HAS  BEEN  *E0* 

OUL 

790 

1  I  DO  tO  TO  A  LAHOt*  SUE  (  .  1  A*  !*•»  1 3. ASH)  10  8IVE  TmE  FIELD  MO*t  *00 

OUL 

791 

2m  ro  oo  irs  t*ino///> 

OUL 

792 

00  TO  VVV 

OUL 

793 

♦ 

OUL 

?94 

hESONATO*  CUNOEHOENCE  TEST 

OUL 

795 

10 

NITE*  ■  Nirt**l 

OUL 

796 

0*1 TE  (6*605)  NITE* 

OUL 

797 

60S 

FORMAT (////3VH  THIS  IS  iHt  COMPLETION  OF  ITERATION  .13  /> 

OUL 

798 

IF ( iNl  T . ANO. .NOT .*ES T*T )  uo  (0  710 

ODL 

799 

IF  l  .NUT.  INI  1)  00  TO  720 

ODL 

800 

00  TO  730 

l»OL 

801 

710 

*CYN(*aO,0 

OUL 

602 

SO  TO  720 

OUL 

603 

730 

HEAD  (9)  (CFIL(U)  tUal.NUBI 

OUL 

•  0* 

*£a (NO  9 

ODL 

80S 

DCVNUaO.O 

ODL 

606 

OO  7A0  U • 1 • NOB 

OUL 

807 

*CVN0*PCVN0*CF  IL  (  U)  ‘CONDO  (CF  ILIUI) 

OUL 

808 
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740  CONTINUE 

SOL 

809 

PCvNU*PCVN«a(A(2)-A) 1) ) ••2«(NPTS/NPY) 

SOL 

610 

I  F  i  nres .  to .  i .  or .  nmes  .  tu .  2 )  pc  v  nu*pC  y  no/  »nu«**2 

UOL 

611 

720  F£RR*1.0« 

SOL 

612 

IFtPCVNO.8T.0.0)FtHHaPP»/PCVNU-1.0 

UOL 

813 

IP  (A6S1PERR)  .ST. .007)  ICEKal 

SOU77CYI 

187 

PCVNOAaPCVNU/1000. 

SOL 

815 

aR  i  r  e » 6 .  r  so » ppuk  •  pcvnuk  .  pekr 

UOL 

816 

750  FORMAT (JUA.21HFLOA  CONVEHUtNCE  TEST//10A.1 OWNER  PLUX  R.0PU11.4, 

UOL 

817 

A  12w  OLD  FLUX  a.SU,4,9M  6HH0H  a,Ftt.4///> 

SOL 

816 

PCYNOaPPa 

UOL 

819 

aRITE  (9)  (CU(U)  <Ual.N08)  .A.ORA.OMY »NI TER 

SOL 

820 

mErINO  9 

UOL 

821 

IP  UCEK.eu.tt>  60  TU  Sob 

UOL 

822 

IP  (ICAV.SI.OI  CALL  RCGAININCI.  NITERI 

UOL 

823 

IP  (NlTER-NlT. SC. 1S0LI99) >  GO  TO  iOUt 

UOL 

824 

»EAO  (8)  (CU(U)  ill'IiWyi  .A. ORA. URY. NITER 

Sol 

62S 

RCalNO  6 

UOL 

626 

IF  ( 1CAV.UT .0)  GO  TU  99 

UOL 

827 

C  RCNOMMALIZA  f  IUM  UP  INPUT  HELO  FOR  DANE  RESONATOR 

UOL 

628 

IP  I.NOT.INIT)  SO  TU  tt* 

UOL 

829 

PHaA  a  0. 

UOL 

630 

00  87  1A*I.NU8 

UOL 

831 

if  (CASStcuux) > .le.pkaxi  uu  ru  sr 

UOL 

832 

PMAA  a  CXSSICUUXI  I 

UOL 

833 

Nfui  *  IA 

UOL 

834 

at  CON T l>*uE 

UOL 

835 

00  TEST*CAHS (CO (NPO 1 ) ) 

UOL 

636 

00  77  I Aa 1 «  NOO 

UOL 

837 

77  COUa)  aCullA)  /TEST 

ML 

838 

SO  TO  99 

UOL 

839 

10U1  REaO  (91  (CUIU)  <U<1<NIJDI  .A.ORA.ORT 

UOL 

840 

RE* I NO  9 

UOL 

841 

GO  TO  UIUO 

UOL 

842 

UOL 

84  j 

C  Calculate  ocalc  flua  a mo  mirror  ano  areriohe  i 

LOSSES 

UOL 

84* 

999  PP«  a  0. 

UOL 

845 

NO«*NPTS»NPY 

UOL 

846 

OO  7b  I Z» l tNUb 

UOL 

847 

78  PPa*PPa«CU(U)»CUNJO(CU(U>  ) 

UOL 

848 

pp««pp»« lAIII.Alil) aai*  (NP  TS/NPY  > 

ML 

849 

IF (NREG.EO.i .0R.NREG.E0.2>PPaaPPa/aNuaaa2 

ML 

850 

P8MlH*PPa 

ML 

851 

GO  TO  (998.997, 998.990.997)  .  IO.YAL 

UOL 

852 

997  PbMlRapPw/HWIRR 

UOL 

853 

PNlRLatP»HIR-PPa)/lUOO. 

bUl 

854 

PMlHLPa(P8MlH-PPR>/PbMlR»lUU. 

UOL 

855 

OKI TE(6.995)PMIRL.PMIHLP 

UOL 

856 

995  PUHMA7(17w  MIRROR  LOSS  *  .012  .  *  .  lrta.Fb.2  .bw 

PERCENT) 

UOL 

857 

IFUUNAL.e0.5lG0  TO  998 

UOL 

858 

990  APLOS«(SPPa-PbMlR)/lttQQ. 

UOL 

859 

APLOSPa ( 5PPR-PBH IH ) /SPPR* l tttt . 

UOL 

860 

IP  ( ICNTL.EU.UG0  TO  998 

UOL 

861 

R« I TE (0. 990 ) APLOS . APLOSP 

SOL 

662 

990  FORMAT  U/H  APERTURE  LOSS  «.ul2.*,  lHa.F8.2.8H 

PERCENT) 

UOL 

863 

998  PPaKaPPu/lttttO. 

SOL 

66* 

ISwALal 

SOL 

8*5 

SPPRaPPa 

SOL 

866 

UCALCPaX  (NPTS>a2.*AU)*A(2) 

UOL 

667 

IF (RSTEP.NE. 1>  aR I Tt (0. 791 PP»K .OCALCR 

SOL 

866 

79  FORMAT (///38M  ELEMENT  TRANSMISSION  FUNCTION  APPLIEU/8X. 12M0CALC 

PL 

UOL 

669 

AUA  a,  UU.O/BA,  12H0CALC  ».Fb.2  > 

UOL 

670 

IP (MSTEP.EQ. I ) RRlTE (6. 779) PPRK 

UOL 

671 

779  FORMAT (///JOM  PRORAUAT ION  STEP  MAS  bEtN  APPLIED/  8X« 1 2M0CALC 

PL 

UOL 

872 

AUA  a,  G12.4) 

UOL 

673 

MSTCRaO 

UOL 

674 

3623  IF  ( IPLOTS.EU.O)  UO  TU  JO/A 

UOL 

875 

RRlTE  (6,36451  ( SNOT ( ICNTL .II.Ial.20) 

UOL 

876 

CALL  I PLOT ( 1 PLOTS) 

SOL 

877 

IP  (ISATE.Ne.O)  GO  TO  3625 

UOL 

878 

J6*5  FORMAT  (2SH1  PLOTS  AFTER  SIEP  ••••••  ,2UA4,  bH**a*aa) 

UOL 

679 

J624  IP (PPa.LE.tt. ) OO  TO  732 

UOL 

660 

Je25  if<.ivot.init/go  ro  v« 

GOt. 

881 

GO  TO  1000 

GOL 

882 

SOS  AWlTt<6«600)NlT£H 

GOL 

883 

600  FOHMAM//  120 l iMil //ASM 

1 1  EM A T ION  IS  CONVEHtttO  AFTE 

GOL 

884 

X  M,U,1*M  I  TtPAf  IONS 

7/120<1m*)//> 

GOL 

885 

IF  (KAuTO. £0.1)00  TO  96 

GOL 

886 

GO  TO  1000 

GOL 

887 

*00  MtTUHN 

GOL 

888 

732  XHITE(6«733) 

GOL 

889 

/ 33  FOHMAT 1///81M  ALL  MlGMT 

f  MtHtS  AIN  T  NO  POACH  IN  TMlS  MtHE 

BEAM  A 

GOL 

890 

XI VO  Tn£  H£asON  «C  H£  ALL 

M£Mt/»6N  IS  POA£H  SO  THIS  300  IS 

GOING 

GOL 

891 

ATO  LEO  ANO  MLLtU  UUlCX 

/2JM  •••CMtCA  INPUT***  //) 

GOL 

892 

STOP 

GOL 

893 

736  am  1 TE 1 6  * / 35 ) NGHO • NP  T  S 

GOL 

894 

70S  FOWMAT <///3A«26M*a*A*X* 

VALUES  OF  NGHO  l  *  l*t  12M)  ANO  NPTS 

(.1*. 

GOL 

898 

ISOM)  NAXfc  THIS  OPfcHA 7 1  OH  OmNELESS AM»  OM  AMONG  *A*A***///) 

GOL 

898 

STOP 

GOL 

89  7 

ENU 

GOL 

898 

14 .  SUBROUTINE  INTERP 

a.  Purpose  —  Subroutine  INTERP  performs  linear  interpolation  on  two- 
dimensional  real  functions  and  on  the  real  and  imaginary  parts  of  two-dimen¬ 
sional  complex  functions.  Figure  32  describes  the  subroutine  INTERP  organiza¬ 
tion. 


b.  Relevant  formalism  —  Consider  first  the  one-dimensional  case  in 
Figure  33.  Assume  the  function  value  f  is  desired  at  a  point  x*,  between 
Doints  x.  and  x,,  with  associated  function  values  f,  and  f.,,  respective lv: 

1  4*  1  .  -i 


Linear  interpolation  between  f^  and  f.,  yields  f  as 


f(x*)  as  f1 


Cx 


•V 


(x:  -  xT) 


(108 1 


where  the 

(x^  x,)  . 


is  used  since  we  are  approximating  f  over  the  subinternal 
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nr- 


INTERP.  2 


INTERP.  29 


INTERP.  30  — - ■—  INTERP.  43 


INTERP.  44 - —INTERP.  56 


INTERP.  57 - »-INTERP.  79 


Figure  32.  Subroutine  INTERP  organization. 
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Figure  33.  One-dimensional  function  case. 


For  the  two  dimensional  case  in  Figure  34,  subroutine  INTERP  establishes 
the  location  of  the  far  comers  of  the  rectangle  bounding  the  desired  point 
(x,y) ,  then  linearly  interpolates  across  top  and  bottom  to  find  the  two 
values  at  x.  It  then  interpolates  between  these  two  points  to  find  the  value 

at  (x,  y) : 


2  0|x,,Y1)0fJ 
etc 

(x,y)  Position  of 
Desired  Interpolate 


■  ((x^y,) 

=  ffxj.y,  )• 


(109) 


Figure  34.  Two-dimensional  function  case. 


f(x,y2)  s  fTQp  =  f.  - 

f(x,y1)  *  ^bottom  *  fi 


(1101 
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nonnonnor.  oono 


f(x,y)  =  f 


BOTTOM 


~<-v  - 10  ] 
>2  '  >'l5J 


ff  -  f  1 
’■TOP  BOTTOM^ 


c .  Fortran 

Arguments : 

TXY 

(XIN,  YIN) 

=  an  array  containing  coordinate  information 

*  the  point  at  which  the  function  value  is  desired 

TZ 

=  the  function  to  be  interpolated 

TYPE 

»  1  real 

=  2  complex 

«T«? 

=  two  element  array  containing  the  interpolated 

value. 

Note:  If  TZ  is  real,  ZZ  must  still  be  dimensioned  to 

2  in  the  calling  program,  then  the  first  element  used 

as  the  answer. 

NSYM 

*  1  symmetric, 

*  0  nonsymmetric 

Note:  Interpolation  outside  the  region  of  definition 
of  the  distribution  returns  (0.0,  0.0)  as  the  value 

of  the  interpolate. 

There  are  no  commons  and  no  other  subroutines  are  called. 
Computer  printouts  of  subroutine  INTERP  follow. 


SUBROUTINE  INTERP  76/176  OPT-1  FIN  4.6+452  04/27/79  12.23.47 


SuriHOUTlNE  InTEmWUAY.AIN.Y  In.  r  i  *  [  YWfc  .  iZ  .NSYM I 

This  wOUlINt  Dots  A  LINEAH  IN  I EWWOLA T ION  UN  Tn£ 
AHHAY  T L  Tu  PINO  t  HE  YALUt  LL  AT  AIN,  Y IN 

rntiA.r)  Ohio  o+  r l  is  coNTAintu  in  me  ahmat  tay 
AS  FOLLOWS  I 

TATU)  a  OAa*i>AClN<i  WfcTwEtN  A  WOInTS 
TAYUI  ■  Of«SWACIN«i  H^IafctN  Y  WOlNlS 
TAV(J)  a  NY «  NO.  OF  WOinTS  ALUNtt  Y-AAIS 
TAY(»)  a  NXt  NO.  OF  WO  IN  IS  Al OHO  A-AAIS 
TAYISI  a  YU).  MIN.  Y  VALUE 
rxt(**NY)  a  Y(NY>.  MAA.  Y  «ALUfc 
TAYCj*NY(  a  All).  MIN.  A  YALOt 
rxY(*»NY«NA)  a  A(NA)«  MAA.  A  VALUE 


INI EMM 
1NIEMP 
INIEWW 
INfEHW 
INIEWW 

Ini £mw  r 
Iniemw  e 

iNfErtW  9 
INttMW  10 

iNifcMW  n 
INttHP  u 
INfEMW  1J 
INTEMW  1* 
INfENW  IS 
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<F  ur  #  (•!  M 


► 

[ 

I 


l 


i 

f. 


i 


* 

f 

i  ; 

! 


c 

NO  lb  MAA,  OlMtNSION  or  FIRST  VAHlAdLE  IN  TZd.J) 

1NTERP 

16 

c 

type  a  1  TZ  lb  REAL  ARRAY 

INfERP 

IT 

c 

«  Z  TZ  is  COMPLEX  ARRAY 

IN  TEMP 

Id 

LEVEL  it  Util 

IN  TEMP 

10 

DIMENSION  U  12)  t  1  XV  U)  .  U  (  11 

INtERP 

ZO 

INTEGER  TYPE.  COMPLA 

IN TERR 

Zl 

COMPLEX  CZZ.CZl .CZ2.CZ JfCAA.tAA.L4B 

INTERP 

zz 

DATA  COMPLA  /  i  / 

INTERP 

23 

OX  •  rxr»n 

INTERP 

ZA 

OY  a  TXY(2> 

INTERP 

zs 

NY  a  TXY 13)  ♦•0(1001 

INTERP 

26 

NX  a  TXY(A) *.00001 

INTERP 

27 

ZZ(1)  ■  0. 

INTERP 

20 

ZZ<2>  a  J. 

INTERP 

29 

c 

TEST  (0  SEE  IP  AIN, Y In  LIE  AlIHlN  OtFlNtU  t i  REGION 

INTERP 

JO 

lF(Xlf4.Lt.TAY  (5»NY )  1  GO  Tu  1000 

INTERP 

31 

IF(XlN.ar.TXY(  A*NA*NY))  uO  TO  1000 

INTERP 

32 

IF(YIN.LI.TXY(S))  GO  TO  1000 

INTERP 

33 

If IYIN.GI .0..ANO.NSYN.EU.1)  GO  TO  1000 

INTERP 

JA 

If  (YlN.GT.rxY(NY*aJ .ANO.NoTN.EO.O)  GO  TO  1000 

INTERP 

JS 

c 

F INO  POSITION  Of  UlN.YlN)  IN  GR 10 

INTERP 

36 

11  a  1* (X IN-fXY (S*NY) 1 ZOA 

INTERP 

37 

J1  a  i* (YIN-TXY (51) /OY 

INTERP 

3« 

IFdl.ta.NA)  Ilail'l 

INTERP 

39 

If  Ul.Ea.NY.ANO.NSYN.EU.U)  JlaJl-l 

INTERP 

AO 

SX  a  1  A  IN-TXY  d  i  **»NY>  ) /OA 

INtERP 

A 1 

SY  a  (YlN-fAY U1*A) 1 /UY 

INTERP 

A2 

c 

f ino  rz  values  at  u.u*i,ji,ji*i 

INTERP 

A3 

if (Type.eo.cumpla)  go  ru  coo 

INtERP 

aa 

c 

rz  is  treated  as  real  array 

INtERP 

AS 

IJ  a  I 1 «NX* ( Jl*l ) 

INTERP 

A6 

Zl  a  TZdJ) 

INTERP 

AT 

ZZ  a  TZ  d J* 1 > 

INIERP 

AS 

IJ  a  l 1 *NX* ( J 1 ) 

INTERP 

A9 

If  (J1.EU..VY)  I  J«1  j-na 

INIERP 

SO 

ZJ  a  TZdJ) 

INTERP 

SI 

l*  a  TZdJ*l) 

INTERP 

S2 

ZA  «  Z1*SX«(ZZ-Z1) 

INfERP 

S3 

ZU  a  ZJ*SA*(Z*-ZJ> 

INTERP 

Sa 

ZZd)  a  ZA*S»«(ZU-ZA) 

INTERP 

S5 

GO  TO  1000 

INTERP 

S6 

ZOO  CUNTINUE 

INIERP 

ST 

c 

IZ  IS  THEATtO  AS  COMPLEX  ARRAY 

INTERP 

sa 

IJ  a  TYPt«dl*NA*(Jl-l)l  -  l 

INTERP 

so 

Z 1 A  a  TZdJ) 

INTERP 

60 

Zld  a  TZ  d J* 1 ) 

INltRP 

61 

CZl  a  CMPLX (ZlA.Zld) 

INTERP 

62 

Z2A  a  TZdJ*Z) 

INTERP 

63 

ZZd  a  TZdJ*J> 

INIERP 

6A 

CZZ  «  CRPLA IZZA.ZZd) 

INTERP 

6S 

IJ  a  fYPt*dl*NX*JD  -  1 

INTERP 

66 

If  (J1.E0.NY)  ijilJ-NXaTYPt 

INTERP 

67 

ZJA  a  TZdJI 

INTERP 

6S 

Z3d  a  TZ  d J* 1 ) 

INIERP 

69 

CZJ  a  CMPLA <  Z JA  >  Z Jd) 

INfERP 

TO 

Z*A  a  T Z  *  I  J*2) 

INIERP 

71 

Z*G  a  rzdJ«J> 

INTERP 

72 

CZa  a  CMPLA (Z* A, Z Ad) 

INfERP 

73 

CZA  a  CZl »SX» ltZZ“CZl > 

INTERP 

7a 

CZd  a  CZJ*SX*<CZA-CZJ> 

INTERP 

75 

CZZ  a  CZA*SY*)CZ»-CZA) 

INIERP 

76 

ZZd)  ■  REAL  (CZZ) 

INtERP 

T7 

ZZI2)  a  AIMAGICZZ) 

INTERP 

78 

1000  RETURN 

INtERP 

79 

ENU 

INfERP 

ao 

j 


j 
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15.  SUBROUTINE  IPLOT 


a.  Purpose  --  Subroutine  IPLOT  has  two  major  purposes:  One  is  to  create 
a  printer  iso-intensity  plot.  The  other  is  to  find  the  maximum  intensity  and 
to  print  the  first  title  used  by  subroutine  OUTPUT.  It  also  contains  the 
necessary  information  used  by  both  subroutines  OUTPUT  and  OUTPUR  to  determine 
whether  a  particular  slice  plot  should  be  printed.  Figure  33  describes  the 
subroutine  IPLOT  organization. 

b.  Relevant  formalism  —  The  output  of  this  subroutine  is  an  array  of 
one-digit  adjacent  members  with  at  least  one  asterisk,  which  indicates  the 
maximum  intensity  points.  The  numbers  indicate  relative  intensities. 

c.  Fortran 
Argument  List 

The  only  argument  of  subroutine  IPLOT  is  the  parameter  IPLTS  which  con¬ 
tains  the  information  needed  by  OUTPUT  (and  OUTPUR)  as  well  as  IPLOT.  IPLTS 
i  ".lied  with  zero  to  five  digits,  each  of  which  is  0  or  1.  If  it  is  0, 
t.ie  indicated  plot  is  not  done;  if  1,  it  is  plotted.  Assuming  that  the  five 
digits  of  IPLTS  are  written  ABODE,  the  associated  plots  are: 

A:  Radial  (calls  OUTPUR  -  not  available) 

3:  Iso-intensity 

C:  X-axis  slice  plot 

D:  Diagonal  slice  plot 

E:  y-axis  slice  plot 

Common  Parameters: 

The  only  common  modified  is  CFIL  due  to  its  equivalence  with  US,  the 
intensity  array.  The  other  parameters  have  then  usual  meaning  including 
PLOTSG . 

Recall:  PLOTSG  >  0  ■*  intensity  slice  plots 
=  0  no  plots 
<  0  ■*  amplitude  slice  plots 
Subroutines  called-  OUTPUT,  oiitpur 

Computer  printout  of  subroutine  IPLOT  follows. 
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LR0P1  22— IR0P1.  43 


LR0P1,  44— LROP.  57 


LR0P1. 58—LROP1. 67 


LR0P1. 68— LR0P1.  79 


LR0P1  30— LROP  1  85 


LROP1. 86-»-LROP1.  105 


Figure  35.  Subroutine  IPLOT  organization. 
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It) .  SUBROUTINE  KINE7 


a.  Purpose  —  This  subroutine  calculates  the  kinetics  and  loaded  gain 
in  the  gas  dynamic  laser  cavity.  It  is  called  by  GAINXY  for  either  small 
signal  gain  calculation  (along  a  single  stream  tube  in  the  x-direction)  or 
full  field  loaded  gain  along  several  stream  tubes.  Figure  36  describes  the 
subroutine  KINET  flow  chart. 

An  intensity  field  XIC  and  previous  gain  field  CAN  are  brought  in  from 
GAINXY  and  are  updated  by  recomputing  the  kinetics  and  gain  in  the  cavity  as 
a  function  of  these  updated  fields.  The  population  rate  equations  (i.e., 
the  equations  showing  the  rate  at  which  the  energy  of  each  vibrational  level 
is  changing)  are  numerically  integrated  along  the  x(flow) -direction.  This  is 
continued  along  the  x-direction  until  the  end  of  the  calculation  region 
(IXMAX)  and  is  then  redone  for  each  stream  tube  in  the  y-direction  (if  full 
loaded  gain  is  requested  by  IFIELD  i  1) .  The  full  gain  field  GAN  (I)  is 
then  updated. 

The  assumption  is  made  that  the  flow  area  of  the  cavity  is  constant 
through  the  region  of  interest  for  all  kinetics  calculations. 

b.  Relevant  formalism  —  Gain  is  calculated  in  the  x-direction  from 
nozzle  exit  plane  to  the  end  of  the  region  of  interest  IXMAX  at  a  constant  v 
value,  as  shown  in  Figure  37.  This  is  done  along  only  one  mid-cavity  stream 
tube  for  small  signal  gain  calculation  and  at  every  v-value  (IY)  for  the  full 
field  loaded  gain  calculations. 
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C (tiled  liutit  GAINXY 


36.  Sub  rout  i 


IXMAX 


x 

IY 


Figure  37.  Region  of  interest  IXMAX. 


Rate  equations  are  set  up  for  each  level  which  describe  the  energy  in 
that  level. 


(Ill) 


(112) 


(113) 


The  energies  of  each  level  EN2,  EOOV,  EVOO  and  EOVO  are  updated  at  each  AX 
step,  i.e.,  the  AE  change  is  computed  and  the  corresponding  heat  addition 
(local  temperature  change)  is  used  to  compute  the  energy  in  the  subsequent 
step. 

The  stimulated  emission  energy  rate  can  be  used  to  determine  local 
intensity  change  and,  hence,  gain.  Energies  of  levels  are  described  by 
population  densities  n^  and  n^: 


dl 

V 

dS“ 


u^L 


hv 


(114) 
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.11 i«P-  “f  J/. 


where  I  is  the  specific  intensity  at  the  frequency  v:  n^  is  the  population 
density  of  the  upper  level;  n^»  that  of  the  lower  level;  A^  the  Einstein  co¬ 
efficient  for  spontaneous  emission;  B^,  the  stimulated  emission  coefficient; 
and  for  absorption.  The  quantities  nUL>  and  0^  are  the  line  shape 
functions  for  the  three  respective  processes,  which  are  generally  different. 

Characteristic  times  for  the  spontaneous  decay  of  low-lying  vibrational 
states  for  molecular  species  of  interest  are  of  the  order  10_1  to  10  3 
second,  whereas  other  rate  processes  are  typically  much  faster.  Hence,  in 
the  equation  above,  the  spontaneous  emission  term  generally  can  be  neglected. 
Also,  for  the  oresent  analyses,  interest  focuses  primarily  on  photon  pro¬ 
cesses  occurring  at  line  center.  At  line  center  0T,.  ■  n()J  .  Thus, 
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The  factor  multiplying  I  is  the  optical  gain  coefficient,  vi:: 
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The  Einstein  coefficients  are  connected  by  the  relationship 
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where  d^  and  are  degeneracies  (statistical  weights)  of  the  upper  and  lower 
states,  respectively.  Also,  it  is  possible  to  write 


B 


LU 


8ir 

— 2 

3h  c 


(118) 


152 


where  R^y  is  the  quantum-mechanically-derived  transition  matrix  element. 
Hence,  the  gain  expression  may  be  rewritten  as 


8  ir 
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i  I  u  L 
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Consider  vibrational-rotational  transitions  of  the  form 
(v+1,  J)  *  (v,J) 

where  v  is  the  vibrational  quantum  number  and  J  is  the  rotational  quantum 
number. 


where: 


lRLU I  ~  K,  v+1 


J  for  P-branch  transitions  (i.e.,  J'  *  J  +  1) 

J  +  1  for  R-branch  transitions  (i.e.,  J'  *  J  •  1) 


Rv,  v+^  3  vibrational-transition  matrix  element 


At  pressures  of  a  few  torr  or  less,  transitions  are  predominately 
Doppler  broadened.  At  higher  pressures,  the  combined  influence  of  Doppler 
and  pressure  (Lorentz)  broadening  is  present.  Therefore,  the  line-shape 
factor  0LU  (vq)  is  represented  in  terms  of  a  Voight  profile  such  that 
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001-»100 


C02  “  C02  10. S  X  10‘1S  cm2 


(124) 


001  -02° 0 


#C02  “  C02  3  10.2  X  10“ : 15  cm2 


(125) 


The  influences  of  Doppler  broadening  and  vibration-rotation  interaction 
have  been  taken  into  account. 


where 


(126) 


a 

P 


pressure  broadened  (Lorentz)  half-width 


JL.  Y 
2ffC 

s 


V  X 
s  3 


aQ  *  Doppler  broadened  half-width 


.  2o  J  2kT(ln2) 
-2  *  m 


vs  is  the  mean  relative  velocity  (\/2kT/M)  between  the  emitting  molecule  and 
the  colliding  species;  Xg  is  the  species  mole  fraction,  ag  is  the  broadening 
cross-section  due  to  the  impacting  species  s;  vq  is  the  transition  frequency 
at  line  center;  m  is  the  mass  of  the  emitter  molecule;  and  M  is  the  reduced 
mass  between  an  emitter  molecule  and  the  collider  molecule  of  species  s: 
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The  optical  gain  coefficient  may  be  rewritten  as 
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Here  the  quantities  V  and  J  in  the  expression  g(V,J)  indicate  the  lower 
levels  of  the  transition. 

In  treating  the  populations  of  the  vibrational-rotational  levels,  it  is 
assumed  that  the  rotational  mode  can  be  described  by  the  local  translational 
temperature  T.  Hence, 
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dT  exp  [-1.439  J (J+l) (B  -  a  (v+4)/t|  n 

__  J  j,  6 _ © _ J  V 


Qrot  777 


(129) 


where  B  is  the  spectroscopic  rotational  constant  (cm  ) ,  and  a  is  its 

fvl  e 

anharmonic  correction.  The  quantity  is  the  rotational  partition  func¬ 

tion,  which  is  evaluated  according  to  the  relation 


0,0 t  (V)  =  £  (2J+1)  exp  (-Erot  (J,V)/kT) 
J 


(130) 


The  populations  can  also  be  represented  by: 
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where , 
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5  CV) 

'rot 


»  CV) 

Jrot 


%  exp  ^ 

gVJ  gV  ^  \  kT  /  rot 


—  =  n  exp  (-$  /T  ) 
g  ooo  41  *v  v 


9  =  characteristic  temp,  of 


state 


T  3  vibrational  temperature  of 


state 


g  .  g  represent  degeneracies 


For  the  transitions 

C02  (001, J) 
CO,  (001, J) 


C02  (100, J±l) 
CO,  (02°0,  J±l) 


the  pertinent  constants  are: 


-13 


Rooi,ioo  3  °-0331  x  10  esu-cm 

•  .13 

R001  02°0  *  0.0295  x  10  esu-cm 


9(001) 

rot 

ero2°0) 

rot 
(100) 


0 


rot 


0.55652  K 

0.56106  K 

■  0.56073  K 


9 001  *  3380  K  e!00 


1997  K 


9020  3  1850  K 


The  expressions  for  the  gain  coefficients  on  two  transitions  are 
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|(0. 55632)  exp  -  J(J+1)  (0.55632/T)^ 

-(0.56106)  exp  -  j'(j+l)  (0.56106/T)fl 


where  m  =  -(j  +  1)  J'  =  J  +  1  (P) 
m=  J  J'  =  J  -  1  (R) 

p 

n  =  total  number  density  =^p- 


X  =  mole  fraction  of  ground  state  CO-  (from  program] 
ooo  2 


J’  *  0,2, 4,6, 


For  largely  pressure-broadened  line,  0  may  be  expressed  as: 


,  1  f,  0.5  ^  0.75  1. 

l1  -  —  —  -  ~ 


875  6.5625 

T'~T 


Argument  List 


XIC  The  field  (matrix)  of  individual  intensities  in  the 

calculation  region 

GAN  Gain  (updated)  of  each  of  the  point  locations  of  the  field 

IXMAX  Number  of  points  in  the  flow  direction 
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DXCAV  The  distance  between  points  in  the  x-direction 
IFIELD  Indicator  for  small  signal  gain  (IFIELD  *  1)  or  Loaded 
Gain  (IFIELD  t  1) 

IY  Number  of  flow  streams,  i.e.,  points  in  the  y-dimension. 

Commons  Modified 

/PROPT/ 

Static  temperature  in  the  cavity  (K) 

Static  pressure  in  the  cavity 
Gas  velocity  (cm/sec) 

Gas  density  (gm/cc) 

Number  density  (particles/cc) 

/ENERG/ 

Energy  (population)  of  the  V  =  1  level  of  N^ 

Energy  (population)  of  the  asymmetric  stretch  vibration  mode 
Energy  (population)  of  the  bending  vibration  mode  of  CO., 
Energy  (population)  of  the  symmetric  stretch  mode  of  C0? 
/RATE/ 

Rate  for  stimulated  emission. 
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17.  SUBROUTINE  MIRROR 

a.  Purpose  —  MIRROR  applies  a  mirror  transmission  function  to  the 
complex  field  which  may  include  reflectivity,  clipping,  radius  of  curvature, 
edge  diffraction  imaging,  small  tilt,  astigmatism,  localized  surface  distor¬ 
tion,  and  overall  spherical  distortion.  In  addition,  two  specialized  options 
have  been  included:  (1)  a  toric  mirror  effect  for  axicon  optics  and  (2])  a 
mirror  dimple  effect  which  enables  a  localized  difference  in  radius  of  curva¬ 
ture.  Figure  38  shows  the  subroutine  MIRROR  organization.  Computer  print¬ 
outs  of  the  MIRROR  subroutine  begin  on  page  168. 
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CALLED  FROM  GDL 


MIRROR 


IF  DISTF<  -10.0,  EDGE 
DIFFRACTION  IMAGING 
WILL  BE  USED 


Rout'  ^in  >  0- 


TILT  ANGLE  WILL  BE 
APPLIED  HERE  IF  ANGX 
<  lOO/irad.  AND  .  ANGY 
<100  «rad. 

DOES  RADIUS  OF  CURVA¬ 
TURE  CHANGE  WITH 
TOTAL  POWER?  IF  SO, 
DELTA  >  0 


LOCAL  POINT  DISTORTION 
DUE  TO  INTENSITY 
DIFFERENT  FROM 
MIRROR  CENTER  WITH 
ASTIGMATISM 


LOCAL  INTENSITY 
DISTORTION  WITH 
NO  ASTIGMATISM 


NO  LOCAL  INTENSITY 
DISTORTIONS;  ASTIG¬ 
MATISM  ONLY 


EDI.  1  — •“EDI. 30 


MIRROR.  19 — --MIRROR.21 


MIRROR.  22— —MIRROR. 55 


MIRROR.  56  — —MIRROR.  113 


MIRROR.  114 — ■—MIRROR.  141 


MIRROR.  142— •-MIRROR.  156 


MIRROR.  157— —MIRROR.  171 


Figure  38.  Subroutine  MIRROR  organization. 
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The  routine  first  tests  for  the  option  of  edge  diffraction  imaging  in 
which  the  outer  annular  edge  of  the  mirror  has  a  radius  of  curvature  dif¬ 
ferent  from  the  mirror.  When  this  option  is  used  the  MIRROR  subroutine  must 
be  called  separately  to  apply  EDI. 

The  subroutine  must  be  called  again  for  the  rest  of  the  mirror. 

The  routine  then  apertures  the  field  to  the  sire  of  the  mirror  and 
applies  small  mirror  misalignments  (angles  less  than  100  microradians)  to 
the  field.  For  large  angles,  the  angle  information  is  stored  in  ANGX  and 
ANGY  which  are  located  in  common  MRPROP  and  used  to  later  determine  the 
location  of  the  center  of  the  field.  The  field  itself  is  not  altered  for  the 
large  angles. 

b.  Revelant  formalism  --  A  distortion- free  mirror  is  applied  to  the 
field  in  Figure  39  by  changing  the  optical  path  lengths  of  the  field  points. 
For  example,  apply  a  convex  mirror  to  a  plane  wave. 


Mirror 


Incident 
Phase  Front 


Mirror 


\  Reflected 
\  Phase  Front 


Figure  39.  Mirror  transmission  function  relative  to  the 
Comdex  field. 


Note  that  the  field  at  the  edge  has  traveled  25  more  than  the  center. 
The  size  of  the  sag  6(r)  (Fig.  10)  at  any  point  r  can  be  found  from  the 
sag  formula: 


(Rc  -  5)2  +  r2  =  Rc2 


(135) 


Figure  40.  Graphic  representation  of  SAG. 

Thus,  to  make  the  center  of  the  field  lead  the  edge  by  a  factor  of  25q, 
the  following  transmission  function  is  applied  to  the  field: 


u  (x,y) 


T ( x , y )  u(x,y), 


(156) 


The  sign  convention  used  is  a  negative  radius  of  curvature  for  a  convex 
mirror.  A  concave  mirror  has  a  positive  radius  of  curvature. 

In  addition  to  curvature,  the  MIRROR  routine  can  apply  power  or  flux 
dependent  distortions  to  the  field. 

The  power  dependent  mirror  distortion  can  be  applied  given  the  center- 
to-edge  maximum  sag,  DELTA,  determined  by  design  power,  PWRDES.  The  incident 
power  is  then  calculated  and  the  sag  reduced  by  the  ratio  of  incident  power 
to  design  power.  For  a  ratio  greater  than  one,  it  is  assumed  that  the  sag 
is  that  of  the  design  power. 
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The  flux  dependence  is  applied  assuming  a  distortion  factor,  DISTF, 
which  weights  intensity  changes  from  the  center  of  the  field  and  thus  applies 
an  intensity-dependent  phase  factor  to  the  field. 

Astigmatism  can  be  applied  to  the  field  in  conjunction  with  the  local¬ 
ized  flux-dependent  distortion  or  can  be  applied  alone.  Astigmatism  is 
included  if  PHIAST  is  input  (as  a  number  greater  than  0) .  PHIAST  is  the 
angle  between  the  mirror  normal  and  the  optical  axis  (in  degrees) .  The  phase 
is  altered  by  astigmatism  by  computing  separate  (sagittal  and  tangential) 
radii  of  curvature  for  the  mirror  and  applying  to  vary  the  X  and  Y  component 
of  the  phase  field,  respectively. 

Argument  List 

ANX  Mirror  tilt  in  X  (about  y-axis) 

ANY  Mirror  tilt  in  Y  (about  x-axis) 

RADC  Radius  of  curvature  of  mirror  (cm) 

RIAOUT  Outside  radius  (cm) 

RIAIN  Inside  radius  of  annular  mirror  (cm) 

XPOS  X-direction  offset  of  mirror  centerline  from  optical 
axis  of  beam  (cm) 

YPOS  Y-direction  offset  of  mirror  centerline  from  optical 

axis  of  beam  (cm) 

RFL  Mirror  reflectivity  -  fraction  0.0  ■*  1.0 

DELTM  Total  power  spherical  distortion  factor 

PISTF  Flux  distortion  factor  -  local  intensity  distortion 

f(I.  .  -  I  _  );  (cm/W/cm*") 

local  center' 

RANULS  Radius  to  annulus  for  toric  mirror  option 
RYOUT  Outside  Y-dimension  (from  center)  for  a  rectangular 
mirror  (cm) 

RYIN  Inside  Y-dimension  (from  center)  for  a  rectangular 

mirror  (cm) 

PHIAST  Angle  of  beam  with  respect  to  mirror  normal  (deg) 

Relevant  Variables 

AKY  2m/Wl  *  2ir/A  where  ir  *  3.14159 

AiN'GX  Accumulative  x-dim  angle  to  trace  field  in  cavity 

ANGY  Accumulative  y-dim  angle  to  trace  field  in  cavity 
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Cosine  of  phase  change 
CUR  Real  array  representing  the  complete  wave  amplitude 

field,  i.e.,  Intensity  (J)  *  |cUR(J)  J  "  +  |cUR(J-l) j 
DELTA  DELTM,  total  power  spherical  distortion  factor 
FMF  Square  root  of  mirror  reflectivity 

PHASE  Phase  change  at  each  point  of  wavefront 

PHI  Phase  change  in  TORIC  MIRROR  and  DIMPLE  calculations 

PPW  Integrated  power  on  mirror 

RADCUR  Negative  focal  length  of  mirror  (  -f) 

RMSAG  Sagittal  radius  of  curvature  (astigmatism) 

RMTAN  Tangential  radius  of  curvature  (astigmatism) 

SINP  Sine  of  the  phase  change 

WL  Wavelength,  \ 

WNDW  Magnification  factor  for  scaling  power 

2 

XX  X  ;  x-component  of  location,  squared 

YY  Y2;  y-component  of  location,  squared 

Commons  Modified 
/MELT/ 

Array  modified  CUR(I)  3  MIRROR  50,  51,  98,  99,  139,  140,  167 

/MRPROP/ 

Variables  modified:  RADCUR  9  MIRROR  115 

ANGX  5  MIRROR  25 

ANGY  1  MIRROR  26 

EDI  (Edge  Diffraction  Imaging) 

Power  near  the  outer  edge  of  the  beam  that  would  have  been  ordinarily 
lost  through  diffraction  is  partially  recovered  by  incorporating  a  separate 
radius  of  curvature  in  an  outer  edge  annulus,  as  shown  in  Equation  137  and 
Figure  41. 


The  real  representation  CUR  of  the  complex  amplitude  field  is  modified 
as  follows: 

K2  a  EVEN  NOS 
K2MI  =  ODD  NOS 

Real  Part:  CUR  (K2)  =  CUR  (K2-1)  Csin  0)  +  CUR  (K2)  (cos  0) 

Im  part:  CUR  (K2M1)  =  CUR  (K2-1)  (cos  0)  -  CUR  (K2)  (sin  0) 


This  array  is  modified  in  the  same  way  by  the  phase  changes  throughout  this 
subroutine. 

Mirror  Tilt  (<100  urad) 


A<t  a  -2  [(ANXKX)  *  (ANY)  (Y)] -i— • 


(138) 


where 

ANX  =>  tilt  in  x-direction  ^  radians 
.ANY  =>  tilt  in  y-direction  ^  radians 


Power  Dependent  Spherical  Distortion 

This  part  of  MIRROR  subroutine  calculates  the  phase  change  due  to  total 
power  induced  spherical  distortion. 


(139) 
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where 
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I  *  Intensity  at  coordinated  x,y  fW/cm-') 
Ref  s  Mirror  reflectivity 
WNOW  =  VAMP  power  correction  factor 


Astigmatism  (Only) 


where  RSAG  ,  radc/cos  4>  ast  (cm) 

and  'S' AN  =  RADC  (cos  <j>  ast)  (cm) 

where  RADC  *  radius  of  curvature  of  mirror  (cm) 

<b  =  beam  -  mirror  (astigmatic)  angle 

aSt 

=  PHIAST 
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60 

CUW1K2)  a  CUMS*S1NH  .  CUN(H2)»C0SP 

HIHHOH 

Si 

so 

NOtt  a  NHIS  •  NPY 

HIHHOH 

»2 

UtLHAA  a  0. 

HAHHOM 

S3 

OtLlN  a  0. 

HIHHOH 

S6 

HAHHOH 

3S 

c 

•  ••••••  uoaEH  OtPtNOtNT  XAQiuS  OF  CUHoAIUHt  CALCULATIONS 

AH£ 

HIHHOH 

36 

c 

•  ««« 

■  ON  ....  HHASt  a  i  H 1/LAHU A ( A**2  «T ••i/t  H) . . 

•  • 

HIHHOH 

3T 

c 

••••  h  aFIOcSIGN  PO»tH»  INClUtNt  POatH.  LtNtEH  10  tobt  I 

OISTUHI IUN««a 

HIHHOH 

58 

c 

UEsluN  POatH  •  PaHUtS 

HIHHOH 

39 

c 

•••*  INCIDENT  PuatH  «  pp* 

niMHOM 

60 

c 

aaaa  HA A  C.  TO  t.  OlSTuHllON  a  utLTA 

HIHHOH 

61 

c 

•aaa  J  KUHOrlAM  11-13  -7* 

HIHHOH 

62 

c 

•  ••« 

HIHHOH 

63 

OtLlN  a  OtLTA 

HIHHOH 

64 

IF  (OtLTA  .tU.  0.  .OH.  f<*¥  .to.  t.)  oil  To  JO 

HIHHOH 

63 

IF  (OtLTA  • L  T .  0.)  UO  TO  20 

HIHHOH 

66 

OtLHAA  a  AGS (OtLTA) 

HIHHOH 

6  r 

c 

•  ••< 

HIHHOH 

68 

C  ••••••  KO*EH  SCMtOULtU  LENttH  >0  toot  UlSIUHUUN 

it.it.... 

HIHHOH 

69 

c- 

HIHHOH 

TO 

OO  IS  1*1 .  N08 

HIHHOH 

n 

It  a  £  a  1 

HIHHOH 

u 

13 

PHa  a  PH*  .  LUW ( 12-1 1 **2  ♦  CUH(lt)»at 

HIHHOH 

T  3 

HHa  a  HHa  a  <A(t)  -  A ( 1 ) ) *«2  •  (NHTstNHT) 

HIHHOH 

76 

IF  (NntG  .tii.  1  .oh.  NHtv»  .to.  2  )  HHa  a  HHa/*nga**t 

HIHHOH 

T3 

c 

PaHFAC  a  PuatH  IN  afcAH  /UtSlGN  POafcH 

HIHHOH 

76 

PhhFAC  a  PHa  /HaHOtS 

HIHHOH 

11 

IF  (HaHFAC  .OT.  1.)  HaMFAC  ■!. 

HIHHOH 

T8 

OtLTA  a  HaHFAC  •  OEL 1 A 

HIHHOH 

T9 

GO  TO  21 

HIHHOH 

80 

20 

OtLTA  a  ASS (Ot LT A) 

HIHHOH 

61 

21 

HAOIOS  » (H 1 AOU f **2)  •  Hl/(aL  •  AAT  *  OtLIA) 

HIHHOH 

62 

HOC  a  -HAOIUS 

HIHHOH 

63 

t  T  A  a  AKT  /HOC 

HIHHOH 

66 

HSO  a  HlAOOT**2 

HIHHOH 

6S 

00  23  I  ■  At  nH» 

NIMHOM 

66 

TSO  *  AU>a*2 

HIHHOH 

67 

OO  23  J  ■  l.  NHTS 

HIHHOH 

68 

AMO  a  TSO  *  A(O) **i 

HAHHOH 

69 

IF  (AMO  .GT.  HSO)  GO  TO  tJ 

HAHHOH 

90 

PHIHIH  a  ETA  *  (  TSO  ♦  A(d)**<  ) 

HIHHOH 

91 

IJ  a  d  ♦  I  l  -  l)  •  NHTS 

HIHHOH 

92 

I J2  a  Id  •  2 

HIHHOH 

93 

UtMl  a  Idt  -  l 

HIHHOH 

96 

SlNH  a  S1N(HH1M(H) 

HIHHOH 

93 

COSH  a  COS(HhIHIM) 

HIHHOH 

96 

CUHS  a  CUH ( 1J2M1 ) 

HIHHOH 

97 

CUH(UtHl)  a  CUH3*C0SH  •  CuM  ( 1  j2>  »SiNP 

HIHHOH 

98 

CUH1IU2)  •  CUHS*SINP  *  LuH ( 1 J2 ) *COSH 

HIHHOH 

99 

23 

CONTINUE 

HIHHOH 

100 

IF  (UELiN  .LT.  U.)  GO  TO  tS 

HIHHOH 

101 

aMITE (6.00) 

HIHHOH 

102 

FOmHa T ( /// »20A » JSHHOaCH  SCntUULtU  H1HHOH  OISTOHTION 

HIHHOH 

103 

MHITt  (6.90) HOC .  OELHAA.  OtLTA.  HaHFAC 

HIHHOH 

106 

90  FORM  AU//.J9H  POaEM  INUUCtU  RADIUS  UF  CURVATURE  *  .012  .6.2HCM./ • 

HI PROW 

10S 

A39M  MAAIMOM  CENTER  To  EDGE  DISTORTION  a  .012 . 6.2HCM. / . 

MIRROR 

106 

A39H  APPLIED  CtN ( EM  TO  EuGE  UlSTORTIUN  a  .012.6.2RCN,/, 

MIRROR 

107 

*39Fi  FRACTION  OF  OtSIoN  PUaER  INC1UENT  a  .012.0. /FI 

MIRROR 

iua 

00  TO  30 

MIRROR 

109 

2b  aRITE  l0.9D0etTA.H0C 

MIRHOH 

no 

91  FOMMAT(//.20A.10nMlHAUH  DISTORTION  •//• 

MIRROR 

in 

aJ7h  APPLIED  CENTER  TO  EDGE  DISTORTION  a  .G12.S.2MCM./ . 

MIRROR 

112 

A«2M  DISTORTION  INDUCED  RADIUS  OF  CURVATURE  a  .G12.S.2HCM) 

MIRROR 

iij 

JO  IF  (  AOS  (HAOCJ  .OT.ll.)  AATHaaKT/MAOC 

MIRROR 

HA 

HAUCUHa-RAuC/2. 

MIRROR 

US 

IF (PH  IAS  T  .to.  0.0)  00  TO  JSO 

C 1 0  AS  T  G 

9 

PN1R  a  (  PHIAsT  •  PD/lBU. 

Cl  OAST  0 

1U 

HMSAG  a  HAUL  /  COSIPHIH) 

CIOASIO 

11 

HMTAN  a  HAOC  •  COSIPHIH) 

CIOASIO 

12 

3Su  CONTINUE 

C1UAST0 

13 

NPaNPIS/2 

MIRROR 

116 

HOE Aa l  NP- 1 >  *NP TS  *NP 

MIRROR 

117 

IF  (FhF  «cO« 1 .0. ANO.O ISTF.EU.U.OI 00  >0  10 

MIRROR 

11B' 

ALPHA  a  1.0-FMF«*2 

MIRROR 

119 

OetFaolSIF»AtPHA 

MIRROR 

12U 

OetF 2«0EtF  *2 • 

MIRROR 

121 

AICt»CUP(2«H0tA-D  «*2  •  CUR (2«N0EA> #«2 

MIRROR 

122 

IF  ( ABS (HAOCUH ) . L  T  .  « SI  00  10  2 

MIRROR 

123 

aHOaSvlal  .0 

MIRROR 

12* 

IF  <NR£G  .tU.  1  .OH.  NHfcu  ,E0.  2  1  aN0aSU»aN0a**2 

MIRROR 

12S 

JO  a  o 

MIRROR 

126 

00  1  lal.NPY 

MIRROR 

127 

YOU  a  Ain**2 

MIRROR 

126 

00  1  jal.NPIS 

MIRROR 

129 

JJ  a  JJ  *  l 

MIRROR 

130 

JJ2  ■  JJ  •  2 

MIRROR 

1J1 

JJ2H1  «  JJ2  -  1 

MIRROR 

1J2 

A I AY  a  CUH(JJ2rtl)»«2  «  CUHlJJ2)a»2 

MIRROR 

1J3 

OCLLaOCLF  2* ( A ICt-A I A Y ) /aNOaSU 

MIRROR 

1JA 

iFiPHusT  ,eu.  0.01  00  TO  *00 

CluASTO 

1* 

PHASE  ■  AKY* ( (  A(JI»«2  /HMSAOJ  •  (YSU/RRIAN))  -AAY*OttL 

L1UAST0 

IS 

00  TO  A  Ob 

CiUASTG 

16 

*00  PHASE  a  AKYR*(A(J>**2  *  fSu  1  -  AAY*DELL 

CiUAStO 

17 

*0S  CONTINUE 

CIOASIO 

IS 

SlHP  »  SINIPmAsE) 

MIRROR 

136 

COSP  ■  COSIPHAStl 

MIRROR 

137 

COWS  a  CUHIJJ2MD 

MIRROR 

136 

CUR  I JJ2H1 )  a  (  CUHS»CUSP  -  CUR IJJ2) »SINP  1  *  FMF 

MIRROR 

139 

1  CUM ( JJ2I  ■  1  CUMS»S1MP  *  CUM(JJ2)»CJSP  1  •  FmF 

MIRROR 

1*0 

IF  IPHlASr.Nt.U.OI RH l Tt< 6. *2U1 HMSAG. HMTAN 

CIUASTG 

19 

*20  FOHMAT  t/.a—  ASTIGMATIC  PHASE  A8BEHA T  1UN  APPLIED  *ITH— •./» 

ClOASTO 

20 

A20A.»— SAOOl  TAL  H1HH0H  RADIUS*  a.ElS. 7.*CM*./. 

CIUASTG 

21 

A20A.»— TANOtNUAL  H1MH0M  RADIUS*  • »Ei 5. 7  **CMa  »/ ) 

CIUASTO 

22 

RETURN 

MIRROR 

1*1 

2  JJ  «  0 

MIRROR 

1*2 

DO  3  lal.NPY 

MIRROR 

1*3 

00  3  jal.NPTS 

MIRROR 

1** 

JJ  a  JJ  ♦  1 

MIRROR 

l*S 

JJ2  a  jj  *  2 

MIRROR 

1*6 

JJ2HI  a  JJ2  «  1 

MIRROR 

1*7 

AlAY  a  CUM(JJ2HD»a2  ♦  CUR«JJ2>«*2 

MIRROR 

1*6 

OeLL«0£LF2*(AICL-AIAYI 

MIRROR 

1*9 

PHASE  a  AMY  •  l  -DELL  ) 

MIRROR 

ISO 

SIMP  a  5 IN ( PHASE 1 

MIRROR 

1SI 

COSP  ■  COST PHASE I 

MIRROR 

162 

CUMS  •  C0MtjJ2Hi) 

MIRROR 

163 

CUM  <  JJ2H1 1  a  1  CUHS#COSP  -  CUMTJJ2I »S1NP  1  •  FHF 

MIRROR 

16* 

3  CUMTJJ2)  a  (  CUHS«SINP  •  Cum ( JJ2I *COSP  )  *  FhF 

MIRROR 

1SS 

MtTUHN 

MIRROR 

166 

10  IF  TABSTMAUCgM) .LT..SI  meIuMN 

MIRROR 

167 

JJ  a  0 

MIRROR 

1S6 

DO  11  lal.NPY 

MIRROR 

1S9 

YSG  a  A  <  1 ) **2 

MIRROR 

16U 

00  11  jal.NPTS 

MIRROR 

161 

JJ  a  JJ  >  1 

MIRROR 

162 

IF (PhIAST .EJ.J.OIOO  TO  ABU 

CIUASTO 

23 

170 


non 


PHASt*  AKY*< (A(J)aa2/HHSAO)  ♦  ( YSU/HNT AN) 1 

C10AST0 

24 

30  To  485 

CtOASTO 

2S 

aou 

PHASE  a  AK  YH—  •  YSU) 

CIOASTO 

26 

<k»5 

CONTINUE 

CIO  AST 0 

27 

JJ2  a  jj  •  i 

NIPPON 

164 

JJ2N1  a  JJ 2  -  1 

NINNON 

16S 

SInP  a  51n(HhASE> 

NIPPON 

166 

COSP  a  COS (NHASfc) 

NINRON 

167 

CONS  a  CUN(JJ2H1) 

NINNON 

166 

CUN(JJ2N1)  a  CUNSaCUSN  -  CON ( JJ2) -SINK  > 

NINNON 

169 

U 

CUN ( JJ2)  a  CONb»blNN  «  CON ( JJ2) ‘CUSP 

NINRON 

no 

IF (PHI AST .NE. 0.0) «Nl rE  (6.480  ) NhSAO.NN  T AN 

CIOASTO 

26 

HETUNN 

NINRON 

171 

NIPPON 

172 

C  ♦••••  TONIC  NIPPON  PHASE  CALCULATIONS  J  FOPtoHAN  10-4- 74  •*•♦*•4 

NINRON 

173 

c  •••< 

NINRON 

174 

100 

OU  106  I»1  »NNT S 

NINRON 

1  75 

If  (X(I> .GE.HANULS)  00  TO  106 

NINRON 

176 

PHI  a  ANY  •  (  (HANOI!)  -  UUI**2)  /  HAUC 

NINRON 

177 

SINP  a  S IN ( Phi ) 

NIPPON 

178 

COSP  a  COS (PHI) 

NINRON 

179 

00  105  jal.NPTS 

NINROR 

180 

K  a  |j-l>*NPrS 

NINRON 

181 

1J  a  1  •  « 

NINROR 

182 

IJ2  a  u  •  2 

NINRON 

183 

IJ2H1  a  1J2  -  I 

NINRON 

184 

CONS  a  CUN ( [ j2hi ) 

NINNON 

185 

CUN(IJ2H1)  a  CUNS«COSP  -  CON ( I J2) «S1NP 

NINRON 

186 

105 

C0NCU2)  a  COHSaSINP  .  CUN ( I J2) »COSP 

NINNON 

187 

106 

CONTINUE 

NIPPON 

188 

HETUNN 

NINRON 

189 

C  tOGE  0 IFFNACT ION  IMAGING 

bOi 

2 

J00 

aN  a  2  •  •  3.1415926  /  *L 

fcOl 

3 

HI  a  HIAlN 

fcOl 

4 

HNi  a  HI  ••  i 

toi 

s 

H2  a  HIAOUT 

to  I 

6 

HH2  a  N2  a«2 

fcUI 

7 

00  310  I»l.NPTS 

LOI 

8 

XX  a  X(I)a*2 

to  I 

9 

00  310  jal.HPY 

E01 

10 

YYaX(J)»*2 

bOl 

11 

X  «  ( J— 1 )  *NPTS  ♦  1 

fcOl 

12 

HN  a  AX  •  YY 

fcOl 

13 

IF  (HN.LE.HNl.ON.HN.Ofc.NN2)  00  TO  310 

fcOl 

14 

OLTPnl  a  HN  •  (HH-HNU/NaOC 

fcOl 

15 

K2  »  K  •  2 

fcOl 

16 

X2H1  a  K2  —  1 

to  I 

17 

SlNPablHlOLTPHl) 

fcOl 

18 

COSPaCOS (OfcTPHl ) 

toi 

19 

CONS  a  CON (A2H1 1 

EOi 

20 

CUN (K2H1 )  a  CUMb*CUSP  -  CUM(X2>a51NP 

tui 

21 

CUH(*2>  «  CUNSaSINP  ♦  CON  1X2) ‘CUSP 

toi 

22 

J19 

CONTINUE 

to  I 

23 

aNlTfc  (6.320)  HIAlN. HIAOur.NAOC 

tot 

24 

J20 

FONNAT  ( I0X.33H— < EOltOIEOlEOlEOlfcOlEOUOlfcOl—  / 

toi 

25 

X  2UX.«9HAP0U12AI ION  APPLltU  alTH  Trtt  FOLLOa IN8  NANANfc  TENS  • 

toi 

lb 

X/2UX. 1 SHINS IDE  NAOIOS  a  .t 1 S. //20X • 16H0U 1 SIOE  HA010S  a  , 

toi 

27 

X  ElS. //20X.21HNA0 lOS  OF  CUNY A 1 UHfc  a  .  t!5.7  > 

toi 

28 

HETUNN 

to  I 

29 

C 

toi 

JO 

c 

MIHMUM 

190 

C  ••••••  NIPPON  COIMPLt*  PHASE  CALCULATIONS  J  FONOhAN  ll)-9->5  ••«•••• 

NINRON 

191 

C  ••• 

192 

coo 

HNtr  a  HIAOUT  **2 

NIPPON 

193 

00  20S  l  ■  1 1 NP  T  S 

NINRON 

194 

AX  a  All) a*2 

NIPPON 

195 

00  20S  jal.NPTS 

NINRON 

196 

YY  a  X ( J) **2 

NlHHON 

197 

HN  a  XX  •  YY 

NINRON 

198 

IF  (nH.ST.hN1T)  30  TO  20S 

NIPPON 

199 

PHI  a ANY  •  (HN-NNTT)  /NAOC 

NIPPON 

200 

X  a  (J-1)*NPTS 

N 1NH0R 

201 

lU2  •  (I  •  HI  •  £  MlMMOH 

IU<MI  «  U2  -  1  MlMMOR 

SIM*  a  SlN(f>*ll  MiMMUM 

CUSP  •  CU5  <R«l )  MlMMOH 

CURS  ■  CUMUJZMl)  MlMHOM 

CUM  ( I  J2**i  )  a  COMS'CUSM  -  LJM  UJ2)  *SiNM  MIRROR 

CUMUU2)  a  CUMS*S1NM  *  CuMUJ2>»CUSM  M1HMOM 

2US  CUNflnuC  H1MRUH 

MMt  a  -M l AOU  I  MlMMOH 

•Mire  MAUCtHM I  MlMROH 

AOU  FOMMAf  l/*2ftrt  Tut  MAUlUS  UC  CUMWAlUME.  Eii.A.AOM  MAS  etfcEN  AHRUItU  MlMROH 
AOMCT  UFfcM  A  MAO I US  OF  MlMROH 

REFUMN  MlMROH 

£NO  MlMROH 


18 .  SUBROUTINE  MIX 

a.  Purpose  --  MIX  calculates  relaxation  and  pumping  rates  for  use  by 
subroutine  KINET.  The  time  constants  which  describe  the  various  collisional 
processes  are  generated  from  quadratic  fits  to  published  data  over  a  finite 
temperature  range.  The  relaxation  rates  are  then  calculated  from  the  time 
constants'  and  the  cavity  gas  mixture  ratio.  This  routine  does  not  require 
an  argument  list. 

Relevant  Variables 

TC2C  time  constant  for  C02  (OVO)  +  C02  -  C02  *  C02 

TC2N  time  constant  for  C02  (0V0)  ♦  C02  -  C02  +  M2 

TC20  time  constant  for  C02  (OVO)  +  02  -*•  C02  +  02 

TC2W  time  constant  for  C02  (OVO)  +  H20  -*•  C02  +  H20 

TC3C  time  constant  for  C02  (OVO)  +  C02  *  C02  (OVO)  +  C02 

TC3N  time  constant  for  C02  (00V)  +  M2  -  C02  (OVO)  +  M2 

TC3W  time  constant  for  C02  (OOV)  ♦  H20  C02  (OVO)  +  H20 

TPMP  time  constant  for  M2  (V=l)  +  C02  M2  +  C02(001) 

TTRD  T"1/3 

TTRD2  T^2/j 

RC2  relaxation  rate  for  C02  (OVO)  ■*  C02  (000) 

RC3  relaxation  rate  for  C02  (OOV)  C02  (OVO) 

RN2  nitrogen  mispump  rate  (pumps  C02  bending  mode) 

RPUMP  pumping  rate  for  upper  level  excitation 

b.  Relevant  formalism  --  The  C02  V-V  and  V-T  relaxation  rates,  the 
pumping  rate  and  the  nitrogen  mispump  rate  are  computed  by 


where  Ps  is  the  static  pressure, 

Xi  are  the  appropriate  species  mole  fractions, 
and  ti  are  their  associated  time  constants. 

The  time  constants,  r^,  associated  with  the  various  collisional  processes 
are  computed  by  an  exponential  quadratic  fit  to  published  data.  The  general 
form  is: 


4  4  a*4) 

t.  *  exp  (a.T  J  ♦  b.T  *  c.) 
x  r  i  s  is  i 


Commons  Modified 
j>.  /RATE/ 

Variables  modified: 


RC2 

at 

MIX. 

23 

RC3 

at 

MIX. 

29 

RN2 

at 

MIX. 

30 

RPUMP 

at 

MIX. 

31 

Commons  Modified: 

/MELT/ 

Arrays  Modified: 

CU  incoming  5-  outgoing  field.  Field  is  modified. 
CFIL  field  to  which  CU  is  made  orthogonal 

Figure  42  is  the  subroutine  MIX  flow  chart. 
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non  o  no 


CALLED  FROM  KINET 


Figure  42.  Subroutine  MIX  flow  chart. 


The  subroutine  MIX  comDuter  printout  follows. 


SUBROUTINE  MIX  76/176  0PT=1  FIN  4.6+452  04/27/79  12. 

SUBROUTINE  MIA  Ml* 

THIS  H0UIIN6  CALCULATES  r ME  CU«i  V-y  AMO  V-T  XELAXATIUN  FOM  uSt  MJ* 

IN  SUBROUTINE  MNET  Ml* 

COMMON/RMORT/TStPSt  V  tMMU*HMUNfCP'<iAMMA*H*B«XLAMtt'HNUtO>MM  Ml* 

CUNMUN/MULES/ XN2 • ACU2  «  *M2U • *CU . X02  Ml* 

C0MM0N/HATE/MN2«HC3*MC2*HMuMM»  HSIlM  MU 

TTHU  ■  TS«a<-.333>  Ml* 

ttmo2  ■  tthu**2  mu 

C02  <  00V)  *N2"  CU2i0V0>*N2  MU 

TC3N  a  CAt>l-J'#3.l2«TTMO2»l*T.S‘yaTTHU-l0.  T20>  Mix 

CO* < 30V > *02  a  CU2 ( 0V0) *02  Ml* 

TC30  a  TC3N  MU 

C02  <  00  V )  *C02  «  CU2tUVU>*CU2  MU 

TC3C  «  e*tM-SS3.9S*TTH02*2UU.39»l  THU-IS.«91>  Ml* 

C  CU2<OOV)*H2U  a  CO2(0V0)*H2U  Ml* 

TC32  a  EAt»l-lS.80SarTH02*.jbiJ9aTlMU-2.T323)  MU 

C  CU2<0V0)*N2  •  C02»N2  Ml* 

TC2N  a  E*R  ( ”29M»5l*T TH02*  1 1 9.88* f  THU-0.6638 1  MU 

C  C0210VOI *CU2  ■  CU2*C02  MU 

TC2C  ■  EAR<-29S.9E*TTH02*l20.32aT?RO-M,3285>  Ml* 

C  CO21UV0)  *M20  a  CU2»M20  MU 

TC2*  a  E*P (319«2**TT M02*l 32 •0**T ? MU *6 • 90921  Ml* 

C  C0213V0)  *02  •  C02«02  MU 

TC20  ■  C*P(-l9S.29aTTM02*8«.380anHO-O.86*d)  MU 
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N2<Val)«C02  «  N2*Cu2t001> 

Ml* 

26 

Mi* 

27 
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32 
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33 

19.  SUBROUTINE  MODER: 

a.  Purpose  —  Subroutine  MODER  is  designed  to  orthogonalize  one 
complex  field  with  respect  to  another,  and  to  excite  a  higher  order  mode  for 
bare  resonator  mode  studies.  The  fundamental  relationships  are  from  the 
Siegman-Miller  paper  (Ref.  131.  Figures  43,  44,  and  45  are  flow  charts  for 
the  Subroutine  MODER  Organization. 


SCONTRL  I F LOW  =  23 1 
$  ORTHG,  MODE  *  L  i 


Figure  43.  Subroutine  MODER  organization. 


13.  Siegman,  A.  E.  and  H.  Y.  Miller,  "Unstable  Optical  Resonator  Loss  Cal¬ 
culations  Using  the  Prony  Method,"  Applied  Optics,  9,  p.  2729,  1970. 
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44  •  Perform  orthogonalization 
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MODE  EXCITATION 
EXCITE  Lth 
MODE 


o 


CU  - 

CU*EXP{iLltan11y/x)| 


^  RETURN 


MODER  .15 
MODER  .26 


Figure  4S.  Mode  excitation. 


b.  Relevant  formalism  --  The  orthogonality  condition  satisifed  for 
symmetric  kernel  calculations  is 


If- 


f(x,y)g(x,y)  dxdy  =  0 


(1451 


where 

R  »  calculation  region  of  interest 

f,g  *  two  arbitrary  complex  fields,  described  here  at  equispaced  discrete 
points. 

The  procedure  is  implemented  by  a  Gramm-Schmidt  orthogonal i ration,  to  create 
a  new  field,  h(x,y)  from  two  known  fields.  Assume 

h ( x , y  j  =  f ( x , y )  +  cg(x,y)  (146) 
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where, 


c  =  complex  constant 

g  =  field  with  which  orthogonalization  takes  place. 


(147) 


N'umerically  this  becomes, 


Additionally,  impose  the  condition  that 


(148) 


(149) 


then  h. .  is  the  new  field  which  is  orthogonal  with  respect  to  g. . 
ij  '  siJ 

the  same  power  as  the  initial  field  f. 


and  has 


Additionally,  MODER  is  structured  to  excite  the  azimuthally-varying  phase 
factor  for  the  generation  of  higher  order  modes.  In  cylindrical  coordinates, 
the  modes  of  a  bare  resonator  may  be  written  as: 


U  (r, 9) 


ne 


®ne  (r/a)£ 


*  j  19 


(ISO) 


where, 


o<<  3  <  2ir 
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an  arbitrary  (convex  mirror)  scaling  factor 

1  *  *1,  ±2,  .  .  . 


n  ■  0,  1,  2 . 

Higher  order  modes  in  bare  resonators  are  initially  excited  as 
f'Cx.y)  •  [e-'1  tan 
and  in  discrete  form  as 

*  exp  £-jl  tan' 

where  f. .  is  the  SOQ  comolex  field  distribution, 
n  x 

c.  Fortran 
Argument  List : 

N  Integer  variable  denoting  the  calculation  path  within  the 
subroutine 

N<0  excite  the  mode  and  return 
N>0  Perform  Orthogonal ization 
L  Order  of  Mode  to  be  excited 
L  =  1,2 . 

Computer  printouts  of  the  MODER  subroutine  follow. 
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o  n  n 
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20.  SUBROUTINE  OUTPUT 

a.  Purpose  --  This  routine  generates  three  intensity  amplitude  and 
phase  printer  slice  plots  through  the  field.  They  are  along  the  x-axis,  the 
y-axis,  and  the  "diagonal,"  defined  by  the  diagram  in  Figure  46.  Figure  47 
shows  the  flow  chart  for  this  subroutine. 


Figure  46.  Intensity  amplitude 
slice  plots. 


and  phase  printer 


LROP1.108--LROP1.136 


LROP1.137— LROP1.157 


LROP1.158-LROP1.187 


LROP1.211-LROP1.251 


Figure  4"T.  Subroutine  OUTPUT  flow  chart. 


b.  Relevant  formalism  —  The  slice  plot  uses  100  available  spaces  per 
line  for  plot  information.  The  point  printed  shows  the  percent  of  maximum 
amplitude  or  intensity  e.g.,  if  the  intensity  or  amplitude  is  35  percent  of 
the  maximum,  a  symbol  is  printed  in  the  3Sth  column.  Similarly  the  phase  is 
plotted  from  -180  to  ISO  degrees  with  zero-phase  at  the  center.  The  corre¬ 
sponding  maximum  intensity  amplitude  is  also  printed  out  with  the  appropriate 
spatial  coordinates. 

c.  Fortran 

Argument  List 

field  to  be  plotted 
number  of  points  in  the  y-direction 
number  of  points  in  the  x-direction 

coordinate  array 
number  of  plots  (1  to  3) 

(N)  ■  1  -*•  x  only 

2  -*•  x  and  diagonal 

3  -*•  x,  diagonal,  and  y 

0,  the  constant  J  orders  used  is  NP  2/2  instead  of  NP1/2.  This  param- 
used  when  gain/phase  slice  plots  are  made. 

4AX  -  maximum  intensity  amplitude  of  the  field.  It  is  used  to 
establish  the  field  point  to  be  plotted  at  100  percent. 

X-AXIS  _  if  true,  the  x  axis  plot  is  generated 

0IAG  -  if  true,  the  "diagonal"  plot  is  generated 

Y-AXIS  -  if  true  the  y  axis  plot  is  generated. 

No  common  variables  are  modified. 

No  other  subroutines  are  called  from  this  one. 

Computer  printouts  for  the  OUTPUT  subroutine  follow. 
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21 .  SUBROUTINE  PLTOT 

Subroutine  PLTOT  is  called  at  the  end  of  subroutine  QUAL  to  calculate 
and  generate  a  printer  plot  of  far  field  power  versus  radial  distance  in 
RX/D  units.  The  integrated  fractional  power  to  several  far  field  radii  are 
calculated  by  multiple  calls  to  subroutine  POWWOW.  The  power  and  radius 
values  are  stored  by  PLTOT  in  array  form.  The  arrays  are  then  tabulated. 

A  simple  printer  plot  is  also  generated  without  the  necessity  of  an  inter¬ 
polation  scheme  or  other  formal  calculations. 

Figure  48  is  the  Subroutine  PLTOT  flow  chart  and  is  followed  by  the  PLTOT 
computer  printouts. 

Argument  List 

DB 
DX 

IMAX 
IPLT 
PT 

RMAX 
TITLE 
WL 

XCEN 
XX 

YCEN 

:max 


near  field  beam  diameter 

grid  spacing  in  far  field,  RX/D  units 

number  of  field  points  across  grid 

flag  -  not  used 

total  near  field  power 

not  used 

run  identification 
wavelength 

X-position  of  center  of  interest 
X-position  array 

Y-position  of  center  of  interest 
far  field  intensity  array 
not  used 


186 


CALLED  FROM  QUAL 


(  PLTOT  ) 


FOR  SEVERAL 
FAR  FIELD  RADII, 


FIND  POWER 
IN  BUCKET 


DEFINE  FRACTIONAL 
POWER 


TABULATE  POWER 
VS 

FAR  FIELD  RADIUS 


PRINTER  PLOT  OF 
TABULATION 


. — 

DO 

■ 

23 

1-1,30 

CALL 

POWWOW 

PW 
=  PW4 

4(1) 

UD/PT 

— 

0 


APR26.27 


APR26.28 


APR26.29 


APR26.  30  • 
PLTOT.  78 


APR26.  34 


Figure  48.  Subroutine  PLTOT  flow  chart. 


Relevant  variables 

IPAGE  Hollerith  character  string  comprising  a  single  vertical 
position  of  printer  plots 

PWA  fractional  power  array  corresponding  to  RRD 

RRD  radial  distance  array  corresponding  to  various  far  field 

bucket  sices. 
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DIMENSION  lAB (3) 

PLTOT 

10 

c 

DATA  NlU.LAB  /  S.BO.bO  .40 .21).  lO.S.E,  1,  12*0  / 

PLiOT 

11 

c 

CALL  DA  TE IMNTM.OAY  t  TEAM ) 

PLTOT 

12 

c 

call  mCLOCKIhR.MIN.SEC) 

PLTOT 

13 

c 

(iU  TO  (32.51)  .  IPLT 

PLTOT 

14 

c 

PLOT  PAW  P'lELO  ISO-INtENSll  1ES 

PLTOT 

IS 

c 

XSCL*3./RMAA 

PLIOT 

lb 

c 

CALL  INI  T  <«SI2E'«.8..l0.) 

PLfOT 

17 

c 

CALL  PLOT (3.5.3. S. 23) 

PLIOT 

18 

c 

CALL  TASIZ(.2t.l3> 

PLTOT 

19 

c 

PLTOT 

20 

c 

»WITE(98.1) 

PLTOT 

21 

c 

1 

FORMAT <3bH  FAW  P'lELO  ISO-lNTENSI  TV  CONTOURS  ) 

PLfOT 

22 

c 

CALL  TXS12 ( . 12. .081 

PLTOT 

23 

c 

CALL  TAPLT(0..4.5.0..0> 

PLTOT 

24 

c 

aW  l  TE  (98.21  T  ITLE.WMAA.MNlrl.UAV.VEAW.MM.MlN.SEC 

PLTOT 

2b 

c 

2 

FORMAT ( IX. 20A4//29H  TM£  LAMOEST  WAOIUS  PLOTTED  *.F4.1 .9HR4LAMB/0  / 

PLfOT 

2b 

c 

1/SmOaTE  .A2.1M/.A2.1M/.A2. 10A.SHT1ME  . a2 . 1 M. , A2 • 1 M. . A2) 

PLfOT 

27 

c 

CALL  SVMBOLI0..U...IS. 3.0. «-l) 

PLTOT 

28 

c 

DO  190  1*1*4 

PLfOT 

29 

c 

AUP*.04*t 

PLTOT 

30 

c 

AUP*.U3*l 

PLfOT 

31 

c 

CALL  OASHTAOP.AUP) 

PLTOT 

32 

c 

RH»RMAA*l/4  *ASCL 

PLfOT 

33 

c 

190 

CALL  CIWCICHAO««WN.(CENC.O..O.) 

PLfOT 

34 

c 

CALL  NOASM 

PL  tor 

3S 

c 

CALL  ISO  (  AA.AX.2.2MAA.0. . IMAA , 1 MAA . XCEN . YCEN. ASCL .N02 .LAB. IMAX > 

PLTOt 

36 

c 

CALL  Flrtl 

PLtOT 

37 

c 

IF  (lPLT.EU.jl  SO  TO  SI 

PLTOT 

38 

c 

PLOT  POWER  VS.  W*L«M8UA/U.  THIS  IS  DONE  ABOUT  EITHER  THE  CENTROID 

PLTOT 

39 

c 

OR  PEAK  INTENSITY  .hICHEVEW  DEMONSTRATES  MAXIMUM  PERFORMANCE. 

PLtOT 

40 

c 

•12 

CALL  1NII (XSI2EC.8..10.) 

PLfOT 

41 

c 

CALL  PLOi (1.5.1. .231 

PLtOT 

42 

c 

CALL  AAIS<0.»0.«11HRAUIUS-ML/U.-Ii.4.,o.. 0. .RMAA/4.) 

PL  rot 

43 

c 

CALL  AAIS*0..0..1JHPERCEnT  POaER. 1J.S..90..0..20.) 

PLTOt 

44 

c 

CALL  OR  10  (0.. 0.«*«. 16. 5. «2U) 

PLTOT 

4S 

c 

CALL  TXSI2I.1S..09) 

PLtOT 

46 

c 

CALL  T  APLT (2..8..0..0) 

PLfOT 

47 

c 

aR I TE 198. SOI  T I TLE .MNTh.OA t • YEAR .HR. MIN. SEC 

PLTOT 

48 

c 

*0 

FORMAT (28H  FAR  FIELD  DUALITY  (FFT)  //20A4//5HOA TE  . A2. 1H/.A2. 1H 

PLfOf 

49 

c 

1/.A2,  IOA.ShT  IME  . A2*2<lH««a2)l 

PLfOT 

so 

c 

CALL  MOvEA ( 0 • . 0. 1 

PLTOT 

bl 

5  1 

IRA0aRMAA*2. 

PLtOT 

S2 

c 

PRINT  POafiR  vs.  r*lambua/u 

PLfOT 

S3 

aR  l  TE  16. 22)  TITLE 

PLfOT 

S4 

22 

FOpPAT  (///.1A.20A*«///.3AO(2A«  1«HW.  »P (FPACT ION)  )  ./) 

pltot 

bb 

00  23  lAl.li.AO 

PL  TOT 

36 

00  2S  3*1  .3 

pliot 

bT 

PP0(3>  *.!•(( 1-1) 

PLIOT 

bb 

CALL  P0«»0*  l  IPAA,  OA.  AA,  It  ACtN.  TCEN*  PMU(3>.  P*A(3>  ) 

PLIOI 

39 

Pa A ( J)  >  P«A(3>  /  PT 

PLTOT 

60 

2b 

IF  UPLr.LE.ll  call  HNEa(PPU<J)a*./kPAA  P*A(J)»b.) 

PLTOT 

61 

23 

aPITE  16.2*1  (PHO<K)  .PAAIM  .K*l.b> 

PLTOT 

62 

PPUAaO.O 

PLTOT 

63 

OPPOaO.l 

PLTOT 

6A 

00  23  1*1.30 

APP26 

2/ 

Call  P0**0A(lPAA.OA.AA.2,ALtN«»CEN.PMO(l>  .PWA(I)  ) 

APP26 

28 

23 

PAA  1  I )  *  PAA ( 1 )  /  PT 

APP26 

29 

OO  2b  1*1.6 

APP26 

30 

Jl  •  (l-l)*b  »  1 

APP26 

31 

32  •  J1  *  * 

APP26 

32 

£5 

AM ITfc  (6.2*1  (HPO(A)  .P*A(M  «A*31. 32) 

APP26 

33 

2» 

FOPPAT (S(*A.F*.l.Fb.S> I 

PLTOT 

Tb 

26 

CUNT INUt 

PLTOT 

T9 

IF  1  IPLT.LE.II  CALL  F1N1 

PLfOT 

80 

aHITE (6. 1100)  AL.Ob 

APP26 

34 

noo 

FOPPAT  t IM1/////46A. IOMPEpCENT  total  FlUA  /*SA«3PWL«*F8.6»*H  0* 

APP26 

3S 

a.Fo.2/2X.6mHA0  0.23*.2H2b.23A,2nbo.23A.2P7b.22A.3HlO0  ) 

APP26 

36 

0O  1310  1*2.100 

APP26 

37 

1310 

IPASEU)  *  I  ULNA 

APP26 

38 

Ik AO  *  1 

APP26 

39 

00  1320  LlNE.Al.3l 

APP26 

*0 

i  page  i  i  >  *u 

APP26 

*1 

IP AGE (26) «1I 

APP26 

*2 

IP aGE (bl ) *1 1 

APP26 

*3 

IPAGE ( 76) *1 I 

APP26 

A* 

IP AGE ( 101 ) a  1 1 

APP26 

*5 

PAO  *  (LlNE-l)A.l 

APP26 

*6 

PCH  a  PPOUPAO) 

APP26 

*r 

IF  (AbS(HAO-PCP) .GT. .01)  GO  TO  131b 

APP26 

*8 

InoEA  *  1.5  ♦  PA A ( I HAD) *  loo. 

APP26 

•9 

IP AO  *  IPAO  •  1 

APP26 

30 

IPAGE (INOEA)  *  1PT 

APM26 

bl 

AP I TE (6.1110)  W  AO  .IPAGE 

APP26 

82 

1110 

FOPMAT  ( 1A.FA.2.2A.101A1  ) 

APP26 

b3 

IPAGE < INOEA) *I8LNK 

APH26 

S* 

GO  TO  1320 

APP26 

bb 

131b 

#PIT£  (6.1110)  PAO. IPAGE 

APP26 

36 

1320 

CONTINUE 

APP26 

37 

mETOHn 

PLIOT 

83 

ENO 

PLTOT 

8* 

22.  SUBROUTINE  POWWOW 
Calls:  N/A. 

Called  by:  QUAL 

a.  Purpose  --  POWWOW  is  called  by  QUAL  to  apply  an  aperture  to  the  far 
field  intensity  field  for  computing  power  in  the  bucket.  Figure  49  shows  the 
POWWOW  flow  chart,  followed  by  the  POWWOW  computer  printouts. 

POWWOW  passes  the  intensity  field,  x  and  y  centroid  locations,  and 
bucket  size.  It  returns  the  power  in  the  bucket  in  parameter  PRB  (PWR) . 
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POWOW  defines  a  radius  function,  RD,  for  converting  rectangular 
coordinates  to  a  radius  bucket  size.  Each  x,y  coordinate  is  searched 
to  determine  if  it  is  within  the  bucket.  If  so,  the  power  at  that  point 
is  added  to  the  sum  for  the  bucket. 

After  all  locations  have  been  checked,  control  is  returned  to  QUAL  along 
with  the  power  number. 

b.  Relevant  formalism  --  Each  grid  point  (X,Y)  lies  at  the  center  of  a 
square  AX  on  a  side.  In  the  logic  to  determine  whether  a  point  falls  within 
the  radius  of  interest,  an  attempt  is  made  to  account  for  gTids  which  fall 
partially  within  the  radius,  RAD.  These  points  are  weighted  between  0  and  1 
according  to 


P  =  (RAD-R  .  )/(R  -R  .  ) 
min  max  mm 


where 


P  is  the  weighting  factor, 

R  is  the  radius  to  the  furthest  corner  of  the  grid,  and 
max 

R  .  is  the  radius  to  the  nearest  corner  of  the  grid, 
min  s 


All  grid  points  with  R  less  than  RAD  are  given  a  weight  of  1,  all 

IilaX 

grid  points  with  R^n  greater  than  RAD  are  weighted  0. 

Argument  List 


AA 

DX 

NPTS 

PWR 

RAD 

XAR 

XCEN 

YCEN 


far  field  intensity  array 

separation  of  far  field  points 

number  of  array  points  in  one  dimension 

power  in  the  bucket  -  returned  to  calling  routine 

radius  of  far  field  bucket 

X-position  array  for  intensity  field 

X-position  of  center  of  interest 

Y-position  of  center  of  interest 


Relevant  Variables 


DS  area  associated  with  a  grid  point 

PER  weighting  factor  for  a  grid  point,  between  0  and  DS 

X  X-position  of  grid  point 

Y  Y-position  of  grid  point 
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Figure  49.  Subroutine  POWWOW  flow  chart. 
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23.  SUBROUTINE  QUAL 

Called  by:  MAIN 

Calls:  TILT 

STEP 
CENBAR 
POWWOW 

QUAL,  entered  with  a  call  from  MAIN,  is  used  to  calculate  quality  of 
complex  field.  Figure  SO  is  the  flow  chart  for  the  QUAL  subroutine.  Subrou¬ 
tine  QUAL  computer  printouts  follow  Figure  50.  A  decision  is  made  whether  to 
use  the  COMMON  complex  field  or  whether  to  read  one  in  from  tape.  A  decision 
is  then  made  as  to  whether  or  not  to  save  whatever  input  complex  field  is 
used.  This  is  for  later  restoration. 


Variables  are  initialized  and,  based  on  the  call  statement  input  vari¬ 
ables,  a  decision  is  made  whether  or  not  to  apply  a  phase  correction  to  the 
complex  field,  that  is,  should  tilt  and/or  spherical  components  be  removed? 
If  not,  QUAL  branches  to  the  lens  section. 


Subroutine  QUAL  flow  chart. 


If  yes,  then  a  call  is  made  to  subroutine  TILT  and  the  linear  and  quad¬ 
ratic  phase  components  are  removed.  If  spherical  components  are  to  be 
removed,  then  this  is  done.  If  not,  control  passes  to  the  lens  section. 

The  lens  strength  required  to  bring  the  beam  down  to  a  specified  radius 
is  computed.  This  is  then  applied  to  the  field,  CU,  via  the  relation 


U  =  U  exp 


y2) 


(152) 


The  total  beam  power  as  transformed  by  the  lens  is  then  calculated.  If 
there  is  no  power  in  the  transformed  beam,  an  error  message  is  output  and 
the  job  stopped.  Otherwise,  some  saving  parameters  are  initialized  and  the 
transformed  field  is  saved  on  tape. 

Subroutine  STEP  is  called  to  take  the  transformed  beam  to  the  far  field. 
The  location  of  the  far  field  peak  intensity  is  found.  Strehl  and  power  in 
the  bucket  are  calculated.  Subroutine  CENBAR  is  called  to  find  the  percent 
of  far  field  centroid  (intensity).  Subroutine  POWWOW  is  called  to  find  the 
percent  of  far  field  power  in  a  given  radius  around  the  centroid.  All  of  the 
calculated  data  is  printed  and  subroutine  PLTOT  is  called  for  beam  quality 
plots. 

QUAL  then  restores  the  complex  field  to  what  it  was  at  entry  and  con¬ 
trol  is  returned  to  MAIN. 
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24 .  SUBROUTINE  REGAIN 
Called  from:  GDL 

Calls:  BLUMIT,  CPUTIM,  FUHS,  GAINXY,  ISOCAV,  SIMPGG,  VINO 

a.  Purpose  --  REGAIN  is  primarily  a  driver  program  to  direct  the 
recalculation  of  the  cavity  gain  medium  at  the  end  of  each  iteration  as  shown 
by  Figure  SI.  Subroutine  REGAIN  computer  printouts  follow  Figure  51.  The 
routine  controls  the  type  of  kinetics  calculation  (numerical  or  analytical 
closed  form),  calculation  of  the  FUHS  effect  on  the  medium  density,  genera¬ 
tion  of  plots,  and  input/output  of  medium  data  on  disk.  Most  of  the  control 
for  this  routine  is  read  in  from  subroutine  CAVITY. 

b.  Relevant  formalism  -  The  only  formal  calculations  oerformed  in 
REGAIN  are  the  summation  of  cavity  aerodynamics  and  FUHS  effect  induced 
optical  path  variations,  and  the  averaging  of  newly  calculated  gain  distribu¬ 
tion  with  that  of  the  previous  iteration.  A  simple  linear  averaging  or 
weighting  algorithm  is  used: 


ow  chart 


G  =  (Gq  ( 1  -A)  +  GCA)  exp  ((2w/A)  OPD) 


f  1531 


where 


Gq  is  the  amplitude  gain  field  from  the  previous  iteration, 
Gc  is  the  newly  calculated  amplitude  gain  field, 

OPD  is  the  sum  of  optical  path  differences, 

X  is  the  wavelength. 

Argument  List 

NCT  the  number  of  cavity  elements  in  the  resonator 

NIT  the  iteration  number 

Commons  Modified 

/CCG/ 

Variables  Modified 

CG  the  complex  gain  field 

Relevant  Variables 


AVGG 

weighting  factor  for  averaging  new  and  old  gain 
defined  by  input  to  GDL 

arrays  - 

I  BASE 

integer  reference  number  to  control  reading  and 

power  densities,  gain,  etc.  to  and  from  disk 

writing 

IPDEN* 

flag  for  plotting  power  densities 

IUSE* 

flag  for  FUHS  calculation 

NGPiorr* 

flag  for  plotting  gain  fields 

NGTYPE* 

flag  for  controlling  type  of  kinetics  calculation 

NSA* 

number  of  gain/phase  segments 

NXA* 

number  of  points  in  flow  direction 

NYA* 

number  of  points  across  cavity  (side-to-side) 

•Defined  by  input  to  CAVITY 

o  o  o 
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Sob  MOOT  (Nfc  HEGAIN(NCT,Nin 

This  ROUTINE  DIRECTS  dl  rnt  RECALCULATION  OF  GAIN  AFTER  A 
RESONATOR  ITERAdON  AND  (2)  THE  GENERATION  OF  ANT  SPtCIFlEO 
PLOTS  OF  Thi  CAVITY  PARAHEIEHS. 

LEVEL  2,  CU.P0u.6tP.C0 
LEVEL  2. AC 

COMMON/HELT/CU (16364)  ,CFlLd65l2)  .  A  (  126)  .ML.NPTS.NPV .URX.ORY 
COMMON  /CC6/  C6U/100) 

COMMON  / 66666/  6(171001 

COMMON/C AV2/  AC  (51  ,YC(S)  .2C15I  .NA(bi  ,NY  (9)  .NSIbl  «AMC<S)  .YHCOI  • 

1  N6TYI5).  NGPLIS).  IU(S)«  1P015I, 

2  SSGAlNd90,b>  , 5AT IN (5)  , ME  T  A ( S 1  .HHUSIS)  . 

3  VEL(b) .GAM(b) .AM ACM (3) • TV1 (SI .TV2CSI . TV A (51 • T VN2 (51 . TSCAV (SI . 

A  PSCAV(S) .P»(5l »FN2 (5) .FC02151 .FM20(S) .FC0(51 .F02(SI . 

5  TITLE (2«l »AV6(b) »NSYM 
DIMENSION  POO ( 163641 .P( 163541 .6(163641 
COMPLEX  CU.CFlL.C6.CAK AY 
EQUIVALENCE  (POOU1  .CF1LI1I  1  . 

A  (Pdl.CUd)l 
CALL  CPU TIM (ISP T) 

CAMAY  «  CMPLA(0..2.43.141592/«L) 

TPIOL  a  6.263164  /  ML 
DU  100  NCVal.NCT 
ISASE  a  10*(NCV>1I*11 
n6TYPE«MGTY (NCV) 
nGPLOT  aNOPL (NCV1 
IUSEalU (NCV I 
IPOENa IPU (NCV I 
A  VOOaAVG  (NCV  1 
NSAaNS (NCV I 
NAAaNA (NLV) 

NYAaNY (NCV I / (NSYM* l ) 

MU T aN A A*NV A 
NEaC  a  0 
MMM  a  0 
00  90  L«l.NSA 

IF  (  NOPLOT  «Nt.“l  1  60  TO  18 

NGPLOT  a  3 
I POEM  a  J 
I USE  a  0 

IF  (IU(NCVI .GE.ll  lUSEaJ 
16  lPPPalMASE«5»L 

HEAO(IPPP)  (P(121  .Ual.MUO 
PE  Ml  1.0  IPPP 

IF  (IP0EN.6T.il  CALL  ISOCAV(P.  NCV,  2,  L  ,  NEnC.NIT.aLl 
IF  ( IP0EN.EO. 1 .OP. 1PUEN.EU.31  CALL  VlNO(P,NCV,  L  .NII.2.MMMI 
ICC«I8ASe»L 

CALL  NUMERICAL  6AIN  MOUTlNt 
IF  (N6TYPE.CU.il  CALL  6AINAY (P.6, NCV. 01 
CALL  M(jl  I  I6CAM  THERMAL  BLOOMINtt  MOUdNE 
IF  (N6TYPE.CU.21  CALL  6L0MI T (P.8.NCV.ML) 

CALL  CLOSEO  F OHM  GAIN  ROUTINE 
IF  (N6TYPE.CU.Q1  CALL  SIHP0G(P  .6, NCV) 

IF  (  NGPLOT  .GE.2)  CALL  ISUCAV (G.NCV , 1 ,  L  ,NCmC«  NIT,  ML). 

IF  1N6PL0T.CU.1. OR. NGPLOT. EU.31  CALL  VINU(G«NCV,  L  .NIT.1.MMMI 
IF  (IUSE.GE.il  CALL  FUMSIP  .PUO.NCVI 

IF  (IUSC.GE.2I  CALL  ISOCAV(PUU,  nCv,  3,  L  ,  N£MC.  NIT,  ML) 

IF  (NGTYPE.tU.2)  GO  TO  25 
MCAO  ddASEI  <P(i2>«I2al,MuT) 

MEmINU  1MA5E 

3u  IF  (luSE.EO.-l)  GO  TO  25 

IF  ( IUSC.EU.U  «0M. IU5E.EU. j)  CALL  150CAV (P.NCV ,5»L .NEML.Nl T . mL) 

IF  (I05C.EU.il)  GO  TO  25 
00  22  0  a  l.MUT 
22  P  (31  •  P(  J  )  ♦  PUU(  3  ) 

IF  (  I USE  .Ofc.  J  )  CALL  1SUCAV IP.NCV.4,  L  .NEmC.N1T.ML) 

25  IF  (AV66.EU.V.)  GO  TO  21 
RCAOdCC)  (Cto(I2)  « 12*1 ,  mu  1 1 
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SUaROuTl/vE  PGHO(NHGO) 

NGHO 
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c 

HGHO 
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NGHO 
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5 
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6 
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NGHO 
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NGHO 
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NGHO 
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NGHO 

10 
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NGHO 

11 

£00 1 VALENCE  ICFILU)  .CFILHU)  » 

NGHO 

12 
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HGHO 

13 
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NGHO 

l* 

NYA0alNRO0-NPTS>/2 

NGHO 

15 

NAAOa (NNGO-NPTS) /2 

NGHO 

16 

*  11 )  aOA»  U-NNGO 1  /2 . 

ngmo 

17 
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NGHO 

18 
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NGHO 

20 

C  aN  1TEI6.10DAU)  .*< NNGO) 

NGHO 

21 

:  101  FONHAT(//10A.»HX(ll  a.G12.4.5A.9HA(NNG0)  a, 012. 4//) 

NGHO 

22 

C  CALL  4EN0  ICFILU)  .CFILU6384) ) 

NGHO 

23 

00  173  UENOal .32760 

HGHO 

24 

173  CF 1LN ( I2EN0) ao • 

NGHO 

25 

00  20  Ual.NPY 

NGHO 

26 

lNUXaN«GO»(NYAU*J-D  »NAAO 

NGHO 

27 

NGASE*  t J“1 ) *NPTS 

NGHO 

28 

00  30  lal.NPTS 

NGHO 

29 

CF IL ( 1N0A* I > >CU (NttASE* I ) 

NGHO 

30 

30  CONTINUE 

NGHO 

31 

20  CONTINUE 

NGHO 

32 

NPTSnnRGO 

NGHO 

33 

NPy  a  NPTS/NFAC 

NGHO 

34 

NSON«NPTS*NPY 

HGHO 

35 

DO  *0  IN»1 .NSOR 

NGHO 

36 

CU  < lH) aCF lL I  IN) 

NGHO 

37 

*0  CONTINUE' 

NGHO 

30 

PE  TURN 

NGHO 

39 

Eno 

NGHO 

40 

201 


25.  SUBROUTINE  RGRD 


This  routine  regrids  a  complex  amplitude  field  by  adding  zeroes  to  the 
array  on  all  sides  of  the  input  field.  Figure  52  is  the  flow  chart  for  sub¬ 
routine  RGRD.  Points  added  have  the  same  separation  as  the  original  field. 
No  interpolation  or  other  formal  calculation  is  necessary.  Use  of  this 
routine  has  the  effect  of  increasing  the  guard  band  around  the  field. 

Argument  List 

NRGD  desired  number  of  grid  points  across  field 
Relevant  Variables 

DX  separation  of  grid  points  before  and  after  regridding 

INDX  counter  or  index  used  to  locate  old  grid  within  the  new  grid 

NSQR  total  numer  of  points  in  regridded  field 

Commons  Modified 

/MELT/ 

Variables  Modified 

CFIL  temporary  field  storage  array 

CU  complex  amplitude  field 

NPTS  number  of  grid  points  in  x-dimension 

NPY  number  of  grid  points  in  y-dimension 

X  x-position  array 


26.  SUBROUTINE  ROSN 

a.  Purpose  --  The  purpose  of  subroutine  ROSN  is  to  provide  an  accurate 
and  rapid  numerical  interpolation  subprogram  for  the  evaluation  of  cavity- 
induced  density  perturbations.  The  subroutine  uses  cubic  spline  processed 

A  _ 

data  representing  aerodynamical ly  parameterized  data  to  interpolate  to  the 

cavity  mesh  for  the  run  in  question  as  shown  in  the  ROSN  subroutine  flow 

chart  (Fig.  53).  Subroutine  ROSN  requires  that  the  user  specify  the  relevant 

Ao 

cubic  spline  coefficients  and— values.  The  subroutine  calculates  for 
an  arbitrary  cavity  mesh  point,  (x,y). 
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CALLED  BY  GDL 


REDEFINE  X  ARRAY 


CENTER  OLD  CU  FIELD  IN 
NEW  FIELD  OF  ZEROES 


REPLACE  CU  FIELD 
WITH  CFIL 


Figure  S2.  Subroutine  RGRD  flow 
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RGRD.32 

RGRD.  36 

RGRD. 37 

RGRD. 38 

chart . 


s 


13 


1 
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b.  Relevant  formalism  --  The  SOQ  Cavity  coordinate  system  represents  a 
regular  mesh  upon  which  many  perturbations  are  applied.  High  Mach  number  flow 
produces  ordered  density  gradients  which  may  degrade  beam  phase  relation¬ 
ships.  Given  arbitrary  flow  field  interferometry  it  is  possible  to  parameter¬ 
ize  fringe  shift  (—  or  AOPD)  as  a  function  of  sidewall  parameter  s,  where  s 
is  determined  from  the  cavity  sidewall  projection  of  Mach  lines,  as  shown  in 
Figure  54. 


6  *  Mach  Angle 

Figure  54.  Fringe  shift  as  a  function  of  sidewall  parameter. 


From  interferometry  data  and  the  above  concept  of  sidewall  projected  data, 
the  following  parametric  curves  may  be  defined: 


The  curves  shown  in  Figure  55  are  fit  using  cubic  splines,  and  the  table  or 
arrays  of  *  f(s*)  and  C  »  g(s*)  (spline  coeff)  are  stored  in  program 
DENSY.  Subroutine  ROSN  is  used  to  interpolate  from  (x,y)  in  the  cavity  to 
equivalent  sidewall  position  sp^  and  sle£t  to  determine  using  the  above 
spline  coefficients,  an  interpolated  value  of  H  (x,y) 


Ao 

o 


right 


gWight^ 


K(x,y) 


( 1541 
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-2-10123 

„  Sidewall  Dimension 

S  - - 

Nozzle  Exit  Plane  Width 

Figure  55.  Parametric  curves  of  Mach  lines. 


The 


at  the  point  (x,y)  is  given,  from  supersonic  flow  theory- 
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4$  »  A0(x,y) 


_  Ap  (x,y) 
P 


The  Spline  interpolator  is: 


to  |  § 


The  interpolator  is  evaluated  for  each  of  a  right  and  left  wall  contribution 
along  the  appropriate  Mach  line. 


Commons  Modified 
None 

Commons  Included 
/LENSY/ 

Relevant  Variables 

XS  Position  in  cavity  in  cm  along  flow  direction 

XS  Position  in  cavity  in  cm  orthogonal  to  flow  direction 

XNZ  Interpolated  perturbation  to  flow  field  at  (xs,ys) 

S  Sidewall  location 

R  Interpolated  density  value 

/LENSY/ 

Y  (31,2)  <->  abcissa  y(51,l)  <->  leftwall 

y(51,2)  <->  right  wall 
Z  (51,2)  <->  ordinates;  same  convention 

C  (51,2)  <->  Spline  Coefficients;  same  convention 

TM(2)  Tangent  of  Mach  angle  -  left  and  right  sides 
XLS  Relative  position  of  nep.  read  in  subroutine  densy. 

W  cavity  width  (cm) 

XMULT  scaling  factor  usually  used  to  scale  from  %  to  absolute 
CRHO  Center  line  density  left  5  right,  may  carry  Gladstone-Dale 

constant 

M(2)  number  of  left  5  right  data  points  respectively 

TITLE  Alphanumeric  title 

LL  No.  of  sidewall  projections  i.e.,  if  left  right  symmetry  is 

assumed,  then  LL*1,  otherwise  =  2. 
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Subroutine  rosnixs.ys.xnZ) 

ROSN 

2 

CAv 1 F 1  JENSlfY  FIELU  IN TErROLA T IUN  ROUFINE 

ROSN 

3 

This  ROUdNb  USES  SHLINE  CUEFF  IClENl  S 

TO  INTERPOLATE  The  CAVITY 

ROSN 

* 

oensify  field  (0Elta  rho/rho  a no  srline  coefficient  versus 

ROSN 

5 

SIDE  FALL  RARAMEFERS  )  ONTO  THE  CAV I \ T 

MESH. 

ROSN 

b 

COMMON/ UEnST/Y (51. 2) *2151*2) *0(51*2) t 

TM (2) • ALS (2) *a* 

ROSN 

7 

> 

1  AMULTIZ).  CHMO (2) •  M (2)  •  T1TOE(20>*  OL 

ROSN 

a 

DATA  J/2/ 

ROSN 

9 

F (A) »A*A“1 ,/3* 

ROSN 

10 

8(A) »A«<A»a-1.) 

ROSN 

11 

L  ■  1 

ROSN 

12 

KYaM(L)  -1 

ROSN 

13 

MM  a  MIL) 

ROSN 

1A 

ITESTaO 

ROSN 

IS 

Sa(XLS(L)/2.«*S-YS/TM(L) >/a 

ROSN 

lb 

6 

IF (S-Y 11. L) I30.T. 7 

ROSN 

17 

r 

IF<S-Y(MM,L) )3«a*30 

ROSN 

ia 

a 

IFU-KY)Z0.2U*9 

ROSN 

19 

9 

J«KY 

ROSN 

20 

zu 

Y01»Y ( J»L) -S 

ROSN 

21 

Y02»Y (J« 1 *L) ~S 

ROSN 

22 

IF ( Y01+Y02) 5*5*22 

ROSN 

23 

22 

IF(YDl) 10*10*23 

ROSN 

24 

10 

Jao*l 

ROSN 

25 

IF ( J-KY ) 20 <11*11 

ROSN 

26 

n 

JaxY 

ROSN 

27 

GO  TO  S 

ROSN 

28 

£2 

J«J-1 

ROSN 

29 

IF (J) 12*12*20 

ROSN 

30 

12 

Oa  1 

ROSN 

31 

S 

JHaJ* 1 

ROSN 

32 

MarUK.L)-Y(J.L) 

ROSN 

33 

Om(S~Y (JtLI) /H 

ROSN 

34 

E*l.-0 

ROSN 

35 

Rao*Z  (  JM*l)  «E»Z(J*L)  ♦M4M/6.«(C(J*L)  *8(E>  »C  U)»*L)  *8(0) ) 

ROSN 

36 

RSa(Z(UR*L)-ZiJ.L)  )/M«M/2.»)C  UM*L)iF(0)-CU.L)*F(t) ) 

ROSN 

37 

60  TO  31 

ROSN 

38 

30 

R*U  • 

ROSN 

39 

KSaO. 

ROSN 

40 

J1 

IF  ( 1  TEST ) 32*32* 33 

ROSN 

*1 

J2 

ITESTal 

ROSN 

42 

Ola*) 

ROSN 

•  43 

L  ■  LL 

ROSN 

44 

MM  a  MIL) 

ROSN 

45 

RY  a  MM  -  1 

ROSN 

46 

HSl*RS 

ROSN 

47 

Sa(*LS(L)/2.«*5-(a-YS)/TM(L) )/W 

ROSN 

48 

OaMM-0 

ROSN 

49 

go  to  a 

ROSN 

50 

33 

XNZaCMMOU)  •  HI  «  CRMO(L)  *  M 

ROSN 

51 

RETURN 

ROSN 

52 

6  NO 

ROSN 

53 

27.  SUBROUTINE  LINTERP 

a.  Purpose  —  This  subroutine  is  used  within  the  SOQ  code  to  linearly 
interpolate  sidewall  projected  cavity  density  information  from  sidewall 
projection  to  the  cavity  mesh.  Data  ij£L  are  stored  in  compressed  form  as 
univariate  curves  of versus  sidewall  projection  parameters  s,  from  which 
—  at  any  point  in  the  GDL  cavity  may  be  obtained  as  shown  in  Figure  56. 
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Figure  56.  Ao/o  cavity  density  information. 


The  interpolated  value  is  calculated  to  determine  the  equivalent 
flow-induced  lens  which  is  to  be  applied  to  the  propagating  wavefront.  The 
lens  is  the  result  of  flow-induced  inhomogenieties  such  as  ordered  density 
gradients  (weak  shocks)  and  uneven  thermal  distribution. 


The  LINTERP  subprogram  (Fig.  57)  calculates  the  sidewall  parameters 


from  interpolated  cavity  position  (x,y)  and  Mach  angle.  With  "s”  determined 

can  be 

f(x,y). 


for  both  right  and  left  cavity  sidewall  projections  a  contribution 


determined  for  both  sidewalls  and  linearly  combined  to  give^-pj 


TOTAL 


>  b.  Relevant  formalism 
Left  Intercept: 

ta”0  ■  xu  *  -  me 

where 

(x,y)  *  interpolate  position 
-  Left  intercept 
tan©  =  tangent  of  Mach  angle 

sidewall  parameter  s 

„  _  XLI  (x-y/tan©) 

bL  *  W  W 


(156) 
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CALLED  FROM  DENSY 


CALCULATE  LEFT 
SIDEWALL 
PARAMETER 


FOR  INTERIOR 
POINTS 

INTERPOLATE  TO 
GET  Ap  / 

P7  L 


CALCULATE  RIGHT 
SIDEWALL 
PARAMETER 


FOR  INTERIOR 
POINTS  INTERPOLATE 
TO  GET 


CALCULATE  RIGHT 
AND  LEFT  SIDEWALL 
PHASE  CHANGE 
IN  RADIANS 


C10LINT,5 

C10LINT.9 


C10LINT,21 

C10LINT.39 


C10LINT,43- 

C10LINT,44 


C10LINT,71 


Figure  57.  Subroutine  LINTERP  organization. 


Right  Intercept: 


tanS 


w-y 

x-x„ 


(x  -  xD  \tan0  =  (w-y)  -  x  tan© 
1 


v  -(w-y) 

X  S  — ■  +.  X 

Rz  tan  3 


where 


s  .  _L  =  x- (w-y) /tan  Q 
R  W  W 


w  =  cavity  width 
tan  9  =  tangent  Mach  angle 
(expositive  angle) 


(157) 


(158) 


Commons  modified 
NONE 

Definition  of  relevant  variables 

TM  Tangent  of  Mach  angle 

XLS  Arbitrary  sidewall  intercept  offset  (cm) 

w  Cavity  width  (cm) 

2tt 

CRHO  Composite  constant  =  CAL  pQ 

Subroutine  LINTERP  computer  printouts  follow. 

SUBROUTINE  LINTERP  76/176  0PT=1  FIN  4.6+452  04/27/79  12.23.47 


SU0MOUTIN£  HNTtHf»fXS,YS«AN<l 

CIOLlNf 

1 

COMMUN/l .tNSY/Y  (SI  t2>  t  L  ISl  .<>  »C  IS  t  «2>  •  TM  (2)  tALS(2> 

CIOLlNf 

2 

X  MULT  12) »C*MUI2>  »N (2) • T 1 I LE (20 ) «LL 

CiULINt 

3 

ClOLlNT 

4 

L«l 

CIOLlNf 

S 

CIOLlNf 

6 

SL*  ( ALS  (L)  /it  *  XS  -YS/TM<UI/« 

CIOLlNf 

T 

IMSL.LT.t  U  .U  )  W  10  b 

CIOLlNf 

0 

if  tSL.oc.r  <mm«  o  h»o  to  & 

CIOLlNf 

9 

CIOLlNf 

10 

00  10  I  »  l»MM 

CIOLlNf 

11 

IFISL.GT.ril.U  1  00  TO  10 

CIOLlNf 

12 

KL«I 

CIOLlNf 

13 

«LMl«l-l 

CIOLlNf 

U 

YSL»Y (ltd 

C10L1NT 

IS 

yslmi»yii«i.o 

CIOLlNf 

IS 

SO  TO  IS 

CIOLlNf 

17 

10  CONTINUE 

CIOLlNf 

IS 

IS  CONTINUE 

CIOLlNf 

19 
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••••••OETEHMlNE  (MHO  OVR  MHOCL  ••*••** 

CIOLlNT 

20 

CIOLINT 

21 

YU1L*YSL  -  Y5LM1 

CIOLlNT 

22 

Y02L»SL  -  YSLM1 

CIOLlNT 

23 

DHhOI*  2IKL.U  -2IKLH1.L) 

CIOLlNT 

2* 

ORHO^a  hxlmi.d 

CIOLlNT 

25 

LLL»l 

CIOLlNT 

26 

IFIXS.GT.20.) 

CIOLlNT 

27 

AaHITt(6<92>KL.ALHl.Y(KL<L> .Y(KLMl.L) »2<KL.L) .ZlKLMl.L) 

CIOLlNT 

28 

92  FORMAT <SX, *00  10  LOOR*.2IS.*<5X.E15.7)  > 

CIOLlNT 

29 

OHHOL  a ( Y02L  /YUlL)*ORHOl  ♦  UMH02 

CIOLlNT 

30 

GO  TO  20 

CIOLlNT 

31 

S  OHHOL  ■  2(1.0 

CIOLlNT 

32 

LLL«2 

ClQLlNt 

33 

GO  TO  20 

CIOLlNT 

3A 

6  OHHOL  a  Z(MM.L) 

CIOLlNT 

35 

LLL«3 

CIOLlNT 

36 

20  CONTINUE 

ClOLlNt 

37 

IF IXS.GT. 20.) «HI ft <6.991 LLL.SL. OHHOL 

CIOLlNT 

38 

99  FOHMAT(10X.IS.2(SA,£15.7) .*  LLL  SL  OHHOL*./) 

ClOLlNt 

39 

'••••  CALCULATE  SI0E9ALL  PARAMETER  (RIGHT ) •*«••• 

CiOLlNt 

AO 

L»LL 

CIOLlNT 

A1 

HMa  MIL) 

C1QLINT 

A2 

SHa ( XLS (L) /2 •  ♦  XS  - (a-YS) / TH (L) ) /a 

ClOLlNt 

A3 

IF(SH  .Ll.rlUUISO  TO  7 

ClOLlNt 

44 

IFISH  .GE.YIMM.U >GU  TO  6 

CIOLINT 

AS 

OO  AO  1*1 , HH 

ClOLlNt 

A6 

IFISH. GT.  YII.U  >  GO  TO  AO 

CiOLlNt 

A7 

KHa  I 

CIOLINT 

AS 

ARM 1  a  I  -  1 

ClOLlNt 

A9 

YOH l ay ( KH , U )  -  Y(AHMl.L) 

ClOLlNt 

SO 

YOH 2*  SH  -  Y(KWHl.L) 

ClOLlNt 

51 

GO  TO  A 5 

ClOLlNt 

52 

AO  CONTINUE 

ClOLlNt 

53 

as  continue 

CIOLINT 

5a 

OHHOR1*  2 (KH.L)  -Z(KHNl.L) 

ClOLlNt 

55 

QRhOH2»  ZIKHMl.O 

CIOLINT 

56 

OHhOH* ( YOH2/ YOH 1 ) *OHHOH 1  ♦  0HH0H2 

CiOLlNt 

57 

KKK*  1 

CIOLINT 

sa 

IFIXS.GT.20.) 

CIOLINT 

59 

XaH I Tfcl 6. 91) AH. KHHl.Y (KH.L)  *  Y  <  ARM) ,L )  .2 (KH.L)  .2  (AHMl.L) 

CIOLINT 

60 

9J  FORMAT ISA. *00  .0  LUURA.2IS.A(5A.tI5.7> ) 

CIOLInT 

61 

GO  TO  SO 

CIOLINT 

62 

7  OHHOH  a  2<1.L) 

CIOLInT 

63 

KKKa£ 

CIOLINT 

6a 

GO  TO  SO 

CIOLINT 

6S 

a  OHHOH  a  2INM.U 

CIOLINT 

66 

ftftftaj 

CIOLINT 

67 

SO  continue 

CIOLINT 

60 

IF<XS.GT.20.)aHI T E (6. 199) AAA .SR.UMMOH 

CIOLINT 

69 

199  FORMAT (10X,IS»2(SA.feIS.7) .*  AAA.SM.UHHOH*. > 

ClOLlNt 

70 

XN2»  OHHOL *CHHOU)  *  0HH0H*CHHU(LJ 

ClOLlNt 

71 

IF (XS.GT.20. ) »Hl rt 16.299)  CHHOI 1 ) .CRnU (L  > 

CIOLINT 

72 

299  FORMAT (20X.*CRHO(1) .CHHO(L)  *.2 ( t IS. 7 ) ./ ) 

ClOLlNt 

73 

RETURN 

CIOLINT 

/A 

ENO 

CIOLINT 

7b 

28 .  SUBROUTINE  R0SN6 


a.  Purpose  --  Subroutine  R0SN6  (Hot  chart  organization  shown  in  Fig. 
58)  is  incorporated  into  the  SOQ  code  to  allow  inclusion  of  the  cavity 
density  field  from  direct  interferogram  data  reduction.  The  data  from  inter¬ 
ferometry  are  assumed  to  have  been  fit  in  the  y  (parallel  to  NEP)  direction 
by  cubic  splines,  using  spaced  points  (not  necessarily  equal). 
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R0SN6 


R0SN6 .12  TO  ROSN6  .27 


ROSN6.28  TO  R0SN6.44 


ROSN6.45  TO  ROSN6.49 


ROSN6  .50  TO  ROSN6  .63 


ROSN6  .64 


ROSN6  .66 


Figure  58.  Subroutine  R0SN6  organization. 
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Subroutine  R0SN6  is  a  bivariate  interpolation  of  the  spline  fit  data 
using  cubic  splines. 

b.  Relevant  formalism  --  Subroutine  R0SN6  uses  the  following  procedure 
to  interpolate  the  available  spline  data  for  an  arbitrary  cavity  mesh  point, 
(x,y) ,  shown  in  Figure  59. 

(1)  Locate  *  in  the  spline  fit  data. 

(2)  Interpolate,  using  the  spline  fits  at  constant  y,  for  the 

value  of  —  at  the  nearest  three  x  values,  (A), 

o 

(3)  Construct  a  cubic  spline  in  the  direction  (x^y*)  and 
evaluate  at  (x*,y*) 

(4)  Modify  —  (x*,y*)  bv  —  (x*,y*)  to  obtain  Ao 

PCL  PCL 

in  the  desired  units. 

See  page  214  for  subroutine  R0SN6  computer  printouts. 


r 


*  (x*,  y*) 

•  Spline  Fit 
Mesh  Points 

a  Interpolates; 
(xj,  y*) 


Figure  59.  Available  spline  data  for  an  arbitrary  cavity 
mesh  point. 
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u  u  o 


Commons  modified 


/MELT/  not  modified 

/MELT/  is  used  to  transfer  in  the  following  data: 

x<=>cavity  flow  direction  coordinates  of  spline  fit  data 

v<*>orthogonal  coordinates  of  spline  coefficients 

2<*>ordinate  at  each  (x.,y.) 

x  y 

C<= corresponding  spline  coefficients 
M<=»>Index  array  for  constant  x. 

N 

ROCL  intended  to  be  p  at  the  center  line  but  may  be  an  artibrary 
scaling  parameter. 

Relevant  Variables 

xx  cavity  x-position 
yv  cavity  y-position 

XNZ  ordinate  interpolated  at  (x,y),  normally  Ap  =  ffx,y) 


SUBROUTINE  R0SN6  76/176  0PT*1  FIN  4.6+432  04/27/79  12.23.47 


suanouriNt  wo snaixx.yy.xnJ) 

H0SN6 

2 

c 

Inis  MOUUNt  la  ustu  10  iultHrULAlt  !nt  U*Ut 

0ENS1IY  FlELO 

HUSN6 

i 

c 

(OtLIA  rfnO/MnO  A  NO  SPLINE  COEFFICIENT  VtKSUS  X 

ANO  Y)  ONTO  rMt 

H0SN6 

A 

c 

CavITy  MtSM. 

H0SN6 

s 

LEVEL  2.  PUUM 

H0SN6 

6 

COMMON  ✓  MELT  /  POUM<20UOV  )l  AU1J  t 

H0SN6 

r 

A  r (41*81 1 .  2(21.61) •Cljltau «M<2I> .rt.WOCL.OUMYS (40778) 

C0MH2 

10 

UIMCNSION  F  U)  ,FP<  j) 

H0SN6 

V 

QaTA  11.0/2.2/ 

M0SN6 

10 

31A)*A*<A*A-U) 

rtUSN6 

11 

c 

COMPUTE  L0CA1I0N  0 F  XX  IN  XI  I)  XU)  .LE.  XX  .Lt. 

X  IN) 

N0SN6 

12 

KX*N-2 

H0SN6 

U 

lu  xoi*aiii>-ax 

H0SN6 

l* 

XU2«A < I I « 1 I -AX 

MUSN6 

15 

IFIX01*XU2)2.X.12 

KUSN6 

16 

12  irixui  .or.  u.i  so  ro  is 

M0SN6 

1 7 

u  •  li*i 

K0SN6 

IS 

IF  <11  .LI.  XX)  <>o  ro  io 

M0SN6 

19 

ll»xx 

HOS N6 

20 

go  ro  i 

M0SN6 

21 

u  a  «  u-i 

M0SN6 

22 

IF ( 1 1  .61.  01  60  ro  10 

HQSN6 

2J 

11  »l 

MUSN6 

24 

c 

COMPUTE  TNWet  VALUES  OF  2.AN0  U2/UY  AT  YV 

KOSNft 

25 

2  L«1I*2 

HOSNft 

26 

KK*0 

H0SN6 

27 

c 

COMPUTE  LOCATION  OF  VY  IN  Y<M<D)  Y<1»  ,L1.  YY  . 

LE.  Y  <M< I ) ) 

W0SN6 

28 

00  6  1*1 i rL 

W0SN6 

29 

KK*KK* 1 

H0SN6 

JO 

XY*M<1)-1 

K0SN6 

J1 

IF  < J  ,6T.  XYI  J**V 

KUSN6 

32 
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20  yoi»y ( i .ji-yy 

H0SN6 

33 

roz  * 

H0SM6 

34 

IF <Y01»ru2>5.5.22 

H0SN6 

39 

22  IF  ( YO l  .AT.  0.)  GO  TO  23 

HOSNA 

3A 

J«J«1 

HOSNA 

37 

IF  ( J  .Lr.  KYI  GO  TO  20 

HOSNA 

38 

J«*Y 

HOSNA 

39 

GO  TO  5 

HOSNA 

40 

23  Jaj-l 

HOSNA 

41 

IF  < J  .OT.  01  SO  To  20 

HOSNA 

42 

J*l 

HOSNA 

43 

5  JPaj*l 

HOSNA 

44 

H«Y ( I « JP) -Y ( l > J) 

HOSNA 

45 

Oa<YY«Y(I»J)  )/H 

HOSNA 

46 

e«i.«o 

HOSNA 

47 

F(«K)»u»2<i.o**)«e»2u.o)  •«•«/».  »»c(  i.  j)*tt«e»»cu.jPi*o<on 

HOSNA 

48 

6  CONTINUE 

HOSNA 

49 

COMPUTE  2 *02/0x t OZ/OY  A >  XX  FHUM  CUdlC  SPUNt  THROUGH  F  AMO  FP 

HOSNA 

so 

Hl»X(U«U-*<IIt 

HOSNA 

91 

M2«XTII»2)-A(Il*U 

HOSNA 

52 

IF (X(II*1)-XX> 7.8.8 

HOSNA 

S3 

7  0*(XX-X(II«1) )/H2 

HOSNA 

S4 

*■2 

HOSNA 

ss 

h»h2 

HOSNA 

SA 

GO  TO  9 

HOSNA 

57 

8  0* ( XX-X (11) l/Hl 

HOSNA 

58 

HOSNA 

59 

Maul 

HOSNA 

AO 

9  Eal.-O 

HOSNA 

A1 

COa2.» ( (F ( J) -F (2)) /«2-iF  (2)-F ( 1 ) > /H 1 ) / IH l •«2> 

HOSNA 

A2 

TEMaH«H/A.»Uj»E)  *0(01  ) 

HOSNA 

A3 

XNaO»F U»l> •ft IK) ♦C0»TEM 

HOSNA 

A4 

XlN2apOCL*XM 

HOSNA 

A5 

HE  TURN 

HOSNA 

AA 

EMU 

HOSNA 

A7 

29 .  SUBROUTINE  SIMPGG 

a.  Purpose  --  SIMPGG  is  used  to  calculate  loaded  gain  for  GDL  cavities. 
It  uses  the  E.  A.  Sziklas  closed-form  gain  solution  as  derived  in  Reference  1, 
instead  of  numerically  solving  the  appropriate  GDL  kinetics  differential  equa¬ 
tions.  SIMPGG  also  finds  the  intensity  emitted  at  the  gain/phase  segment  for 
use  in  FUHS.  Figure  60  shows  the  SIMPGG  organization. 

b.  Relative  formalism  —  The  effect  of  the  interaction  of  the  light 
with  the  medium  results  in  an  amplification  of  the  light  beam  as  well  as  a 


phase  change.  Analytically  this  effect  on  the  field  is  writ‘en 


UNITED  TECHNOLOGIES  CORP  WEST  PALM  BEACH  FLA  F/G  2 

SYSTEM  OPTICAL  QUALITY  USERS  GUIDE.  PART  2. (U) 

MAR  80  J  L  F0R6HAM.  S  S  TOWNSEND  F29601-77-C-0025 

AFWL-TR-79-141-PT-2  NL 


SIMPGG 


SIMPGG.  15— 
SIMPGG.  22 


SIMPGG.  24— 
SIMPGG.  32 


SIMPGG.  33— 
SIMPGG.  44 


SIMPGG.  49— 
SIMPGG.  53 


Figure  60.  Subroutine  SIMPGG  organization. 


AL  is  width  of  the  medium  under  consideration,  g  (x,y) 

is  the  loaded  gain  coefficients  and  An(x,y)  is  change  in  index  of 

refraction  due  to  density  variations. 

The  factor  of  1/2  in  the  exponent  is  due  to  the  fact  that  gain  is  inten¬ 
sity,  not  amplitude,  related: 


OUT 


IN 


_ 


=  GI 


IN 


(160) 


where 

I  -  |u|2 
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SIMPGG  determines  g(x,y)  analytically  using  expression 

-X„0S 


gCx.y) 


S„ 


(  C02  \  x 

(x.y)  1  dx 


rr  T(x,y)/i 


SAT 


XSAT  + 


Ux.yj _ 

TU~T) 


(161) 


and  using  the  trapizoidal  rule  for  the  integral,  where  g  (x,y)  is  the  small- 
signal  gain  coefficient  found  in  subroutine  GAINXY. 

Note  that 


g(x.y)1 


g0U,y) 


I(x,y)  =  0 


(162) 


I  is  the  "saturation  intensity" 


where 


^AT 


3  ho  3 
a 


(163) 


hv  is  the  photon  energy,  3  the  lower  laser  level  relaxation  rate,  and  <j 

the  optical  cross  section  for  the  transition.  I  is  also  defined  in  sub¬ 
sat 

routine  GAINXY. 

Where  the  FUHS  routine  is  to  be  called  to  calculate  heat  increase  in  the 
gas  due  to  lower  level  decay,  the  intensity  change  in  the  beam  is  needed  for 
each  gain  phase  segment,  thus  giving  the  heat  release. 

Consider  Figure  61  of  a  gain/phase  segment 
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I 


Then  for  each  (I,J) 

-1  ■  C1!  +  r3)  -  Cr2  +  r4)  (164) 

the  quantity  stored  in  the  array  PPD  after  a  complete  round  trip  is  the 
average  of  the  right  running  wave  (1^  +  /2  plus  the  average  of  the  left 

running  wave  (1^  +  1^) /2 . 

Therefore 


PPD  *  (Ij  ♦  I2  +  I3  +  I4)/2 


(165) 


but  I,  =  GI,  and  1^  =  GI 
so  ill  *  (1-G)  (I  +1  ) 
/UG\ 

and  PPD  =1 - -Ifl^Ij) 

therefore 


(166) 


Knowing  the  total  power  change  due  to  41  and  the  quantum  efficiency  n,  the’ 

1  /ln\ 

total  heat  released  is  found.  The  factor  —  I - 1  is  discussed  in  FUHS. 

4z  \  n  / 

c .  Fortran 
Argument  List 

PPD  *  Total  intensity  (left  running  +  right  running  waves)  — 

1  /ln\ 

Becomes  —  {  - 1  41  for  use  in  FUHS 

4z  \  n  / 

GG  ■  Gain  *  i"gA2/2 

NCV  *  cavity  number 
Commons  modified  --  none 
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Subroutines  called  -  none. 

Subroutine  SIMPGG  computer  printouts  follow. 

SUBROUTINE  SIMPGG  76/176  0PT=1  FIN  4.6+452  04/27/79  12.23.47 


SUdHUUTINE  SIMPGG  (PPU.GO.nCV) 

S1MP0G 

2 

c 

CLOSED  FOHM  uA  In  ALOOWIThm 

SIMPGG 

3 

c 

this  PouriNfc  usts  me  e.a.s21alas  closed  pomm  gain  solution  fuh 

SIMPGG 

4 

c 

Coe  TO  CALCULATE  LUAUeO  gain  PUB  THE  GUI.  CAVlTltS. 

SIMPGG 

3 

LEVEL  it  AC.PMO.GG 

SIMPGG 

6 

COMMON/C  A  V  2/  AC  (SI  .TC(3>  »ZC(3>  .NAtSI  .NY  (31  .NS  (31  .XMC(S)  »YMC(3>  • 

SIMPGG 

T 

2  NStYP(  101  .  IUSMUI.  SSGAINM90.3I  .SAMN(5I  .«ETA(3I  .PMOSIbl  . 

SIMPGG 

0 

3  VEL (31 .GAM (51 . AMACM (31 . TV  1 (31 . TV2 (3) . T V 3 (3) , TVN2 (3) » TSCAV (3) . 

SIMPGG 

9 

A  PSCAV(S) .PS (31 .FN2ISI <FCU2 (3) .FH20(3I .ECU (SI .FU2(SI ♦ 

SIMPGG 

10 

3  T I TLb  (2(11  .  AVG (Si  .nsym 

SIMPGG 

11 

OImENSIOn  00(1).  PPU(  163041. 

SIMPGG 

12 

2  0(190)  .SGAINAdGOI  .AlNTSdOO) 

SIMPGG 

13 

c 

CAUL  CPortMdSMTI 

SIMPGG 

14 

NSAaNS(NCV) 

SIMPGG 

13 

NYAaNYINCVI  /  (NSVH*1I 

SIMPGG 

16 

NAA«NA(NCVI 

SIMPGG 

17 

SATaSATlN(NCVI 

SIMPGG 

10 

MOT*  NAA+NTA 

SIMPGG 

19 

OUAXa  XCiNCVI  /  NX A 

SIMPGG 

20 

2X2  a  2C(NCVl/NS(NCV)/2. 

SIMPGG 

21 

AC1«FC02 (NCv 1 «0t T A (NCV 1 /FN< (NCV 1 /VEL (NCV I 

SIMPGG 

22 

c 

AMITE (6.21  NSA.NYA.NAA.OOAX.2X2.AC1. (SSGAIN (K .NCV 1 ,K«l.NXA> 

SIMPGG 

23 

c 

2  FUHMaT  ( 1HU.31S.  3012.3/161 lX.0G12.*/>  1 

SIMPGG 

24 

Oil  HU  jml.NY A 

SIMPGG 

2S 

I2«1«(J-1I*NXA 

SIMPGG 

26 

PUP  a  PPO(  12) /SAT 

SIMPGG 

27 

POP!  a  PUP  •  1. 

SIMPGG 

20 

SGAlNX(J)  a  POP/PUP l»00 AX/2. 

SIMPGG 

29 

MINTS Ul  ■  PUP/POP  1 

SIMPGG 

30 

G(J)  a  SSGAINd.NCVl/PUPiatXP<-ACl*3GAlNX(0) I 

SIMPGG 

31 

SO  GG(  1Z  I ■  EXP(G( Jl *ZA2I 

SIMPGG 

32 

00  110  (a2,NXA 

SIMPGG 

33 

c 

•MITE  (6.3)  G 1 32)  .SGAINX(32)  .alNT3(J2)  .GGd-1.32) 

SIMPGG 

34 

c 

3  F0HMATdX.4G12.SI 

SIMPGG 

3S 

00  110  jal.NYA 

SIMPGG 

3* 

12  a  l»(J-U»NAA 

SIMPGG 

37 

POP  a  PPO ( 12  I /SAT 

SIMPGG 

30 

P0P1  a  1..P0P 

SIMPGG 

39 

MINTa  PUP  /  PUP1 

SIMPGG 

40 

SOAlNXUI  a  SSAINX  (J)  *(MINT*MlNTS(JI  1/2. *OOXX 

SIMPGG 

41 

MINTS(J)  ■  MINT 

SIMPGG 

42 
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The  following  is  from  Reference  1  and  is  included  for  the  convenience  of 
the  reader. 

The  gain  coefficient  for  a  gas  dynamic  laser  is  decribed  with  the  aid  of 
a  simple  three- level  model  representing  a  flowing  N2*C02  system  interacting 
with  a  10. 6u  beam.  The  relevant  energy-level  structure  is  illustrated  sche¬ 
matically  in  Figure  62.  The  upper  (001)  and  lower  (100)  laser  levels  of  CO^ 
are  designated  a  and  b,  respectively.  The  symbols  n^  and  n^  denote  the  popu¬ 
lation  densities  occupying  these  levels.  The  first  excited  vibrational  level 
of  is  nearly  resonant  with  the  upper  laser  level.  The  population  density 
N  is  nearly  resonant  with  the  upper  laser  level.  The  population  density  N 
in  this  level  preferentially  pinups  the  upper  laser  level.  Since  the  ground 
state  CO.,  and  N2  populations,  labelled  nQ  and  Nq,  are  generally  large  com¬ 
pared  to  n^,  n^,  and  N,  the  magnitudes  of  nQ  and  Nq,  are  relatively  unaf¬ 
fected  by  transitions  to  and  from  the  excited  levels.  Accordingly,  nQ  and 
may  be  viewed  as  constants,  i.e.,  nQ/NQ  “  C02/x^  =  constant  where  Xgg^  and 

X„  are  the  mole  fractions  of  CO-  and  N?. 


Figure  62.  Relevant  energy  level  diagram  for  N2-C02  system. 
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For  steady  flow  in  the  x-direction  the  rate  equations  describing  the 
spatial  variation  of  the  three  relevant  population  densities  n  ,  and  N 
are  given  by 


6n 


v  —t-AN  -  (a+r)na  -  (ol/hv)  (n^) 


v - =  -  iln^  =  (ol/hv)  (n&  -  n^) 


(167) 

(168) 


v 


5N 

5x 


rn  -  an 

a 


(169) 


Here,  v  is  the  flow  velocity  (assumed  constant):  a  and  8  are  the  relaxation 
rates  of  the  upper  and  lower  levels;  A  and  r  are  the  forward  and  backward 
pumping  rates  of  the  upper  laser  level;  a  is  the  optical  cross  section  for 
the  laser  transition;  hv  is  the  photon  energy;  and  I  is  the  beam  intensity. 

Since  the  pumping  rates  A  and  r  are  proportional  to  the  ground  state 
population  densities  nQ  and  N  ,  respectively,  it  follows  that 


'Vf  ■  XCo/Xn2  (170) 

Under  typical  GDL  operating  conditions  <<:XM  •  Also  typically,  the  upper 

LU2  N2 

level  decay  rate  is  slow  relative  to  the  lower  level  decay  rate,  and  the 
latter  is  slow  relative  to  the  backward  pumping  rate,  i.e., 


A«r 


(171) 


The  beam  is  assumed  to  propagate  in  the  z -direction.  For  purposes  of 
analysis  it  is  convenient  to  suppose  that  the  transverse  intensity  profile 
at  some  axial  station  z  can  be  divided  into  a  series  of  constant  intensity 
segments,  as  illustrated  in  Figure  63.  For  example,  in  the  n  segment 
(xn<x<xn+1)  the  intensity  distribution  is  approximated  by  the  value  I  * 
constant.  For  the  moment,  the  segment  width  x^  -  x^  is  left  unspecified. 
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Intensity,  1 


Figure  63.  Step  approximation  to  transverse  intensity 
profile. 

The  gain  coefficient  for  the  laser  transition  is  defined  by 

g(x,I)  *.00^-1^)  (172) 

We  wish  to  solve  for  g  *  g(x,I)  in  the  nth  segment  (n  *  1,  2,  3,  ...)  where 

I  *  I  =  constant.  The  upstream  edge  conditions  n  (x  ) ,  n,  (x  )  and  N(x  )  are 
n  an  bn  n 

presumed  known  from  the  solution  in  the  adjacent  upstream  segment.  By  succes¬ 
sive  application  of  the  nth  segment  solution,  commencing  with  the  segment  at 
the  upstream  edge  of  the  beam,  one  can  in  principle  solve  for  g  throughout 
the  optical  cavity. 

The  advantage  of  the  segmented  description  is  that  an  exact  solution  can 
be  found  in  a  region  of  constant  beam  intensity.  Moreover,  under  suitable 
approximations,  to  be  discussed  later,  this  sequence  of  exact  solutions  can 
be  put  in  a  simple  analytical  form  suitable  for  application  to  a  smoothly 
varying  beam  profile. 

Applying  the  Laplace  transform  to  equations  (167)  through  (169),  one 
obtains 
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where 


Here,  n  (s)  =  (1/v) 

a 

and  lvn  =  oIn/hv. 


dx  na(x) 


etc .  . 


Solving  by  b 


naCs) 


detl  _1£(s+5+Wn)  Cs-*-A)na(xn)  ♦  f^Cs+A^fx^  +  A  (s+d+tfn)N(xn)j 


(174) 


-1 


s  an 


-M( 


'V  I  ‘  14  \  A  I  '  »»  1  il,  1  A  I 

n'  a  n'  n  b^  n' 


VV  *  VN(\>}  (l75’ 


n'  n' 


(176) 


Here,  |det|  is  the  determinant  of  a  given  by 


s3+k,s2+k1s+k 
2  lo 


(177) 


where 

k7  =  3  +  A+r*2W 
1  n 

kl  *8(A+r)  *  Wn(2A+r*S) 
k0  =A8(a>Wn) 


The  approximate  equality  sign  refers  to  the  use  of  the  first  half  (a«8,A,r  ) 
of  the  inequality  171. 

Under  the  same  approximation  the  roots  of  equation  (177)  are  given  by 


AS(ci+Wn) 

tlai g(A+r)  *  Wn  (2,vr+0y 

r2  ‘  I  [A+F+  0  +2Wn  ‘  V(A+r‘0)2  +  4Wn  (Wn"A)] 
r3  3  I  [A+F>  0  +2Wn  *  V(A+r‘0)2  +  4Wn  CWn“A)] 


(178) 

(179) 

(180) 


where  !det|  =  (s+r^)  (s+r7)  (s+r^) . 

In  the  absence  of  a  beam  (W^  =  0)  the  roots  r  ,  r 2  and  r.  have  a  simple 
physical  interpretation. 


^  r°  *  a  A/  (A+D 

r  r°  *  P 

2  r2  (181) 

r,  r.  *  A  +  r 

3  o 


The  value  r^  defines  the  relaxation  rate  of  the  available  laser  energy  (the 
upper  laser  level  coupled  to  the  vibrational ly  excited  N,)  in  the  absence  of 
a  beam;  r°  describes  the  lower  level  decay;  and  r°  is  the  rate  at  which  pump¬ 
ing  equilibrium  between  the  excited  CO.  and  N_  is  established.  Typically, 
o  o  o  2  2 

rl<<r2<<r3. 


As  is  increased  from  zero,  the  physical  identification  of  the  roots 
r^,  r2>  and  r^  becomes  somewhat  obscure.  However,  the  inequality  r^<<r,<<r, 

appears  to  hold  for  all  values  of  W  .  This  feature  leads  to  an  important 
simplification. 

*Care  must  be  exercised  not  to  introduce  the  second  inequality  at  too  early 
a  stage  in  the  calculation. 
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Taking  the  inverse  Laplace  transform  of  equations  (174)  through  (176)  one 
obtains  a  solution  in  the  form 


na(x)  = 


A  exp  |-r1  (x-xn)/vj+  B  exp  |-r2 (x-xn)/vj  ♦  C  exp  |-r.(x-xn)/v 


(182) 


where  A,  B,  and  C  are  functions  of  the  initial  conditions  n  (x  ) ,  etc.,  and 

&  n 

of  the  various  rate  constants.  Similar  expressions  hold  for  n^(x)  and  M(x)  • 


In  the  absence  of  a  beam  (W  *  0)  this  solution  reduces  to  the  simple 

n 


form 


na(x)  *ATf  [na(xn)+N(xn)]  exP  [  C^n)/v- 

+  r  .  ,  .  ,1 

L — — r - J  exP  [*r3  Cx*xn)Aj 

nb(x)  =  nb(xn)  exp  [-r*  (x-xn)/v] 

N(X)  -  [na(xn)  ♦  N(xn)]  exp  [-r*  Cx-x^/v] 
frn,(x  )  -AN(x)"j  r  i 

-l--a-^T-r-  J  R  (.-S)/Vj 


(183) 

(184) 


(1SS) 


ihe  quantity  £na(x)  +  N(x)|  >  describing  the  available  laser  energy,  decays  at 
the  characteristic  rate  r^1  while  the  quantity  Tn  (x)  -  AN(x)l  ,  describing 
the  departure  from  pumping  equilibrium,  decays ''at  the  rate  r°. 

When  the  beam  intensity  I  is  nonvanishing,  the  details  of  the  solution 
become  rather  cumbersome,  and  successive  application  of  this  solution  to  a 
series  of  adjacent  beam  segments  would  be  a  tedious  task.  Fortunately  this 
complexity  can  be  largely  eliminated  with  the  aid  of  two  physically  reason¬ 
able  assumptions. 

The  first  assumption  is  that  the  segment  widths  Axn  *  xn+i  '  xn  can  be 
made  somewhat  larger  than  the  characteristic  lengths  v/r,  and  v/r^.  In  other 
words,  the  intensity  distribution  I  ■  I(x)  is  assumed  to  vary  little  over  the 
characteristic  lengths  for  lower  level  decay  and  pumping  equilibrium.  In  this 
event  the  second  and  third  terms  in  equation  (182),  evaluated  at  the  down¬ 
stream  edge  of  the  nt^1  segment,  can  be  neglected. 
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If,  in  addition,  the  rate  of  stimulated  emission  (n  *  1,2,3,...)  is 

less  than  the  pumping  equilibrium  rate  A  +  r,  it  follows  that  pumping  equilib¬ 
rium  can  be  assumed  throughout  the  optical  cavity,  i.e.. 


rn  (x)  =  N(x) 

3L 


(186) 


Application  of  these  approximations  yields  for  the  population  difference 
between  laser  levels  evaluated  at  the  downstream  edge  of  the  n1*1  segment 


VVl5  '  °b  (xn*-l)a  SCA+r) 


3(A+Dna(xn)  AX  1 

i+ri  +  wn  (2A+F+Q)  exp  [‘ri  CV  ”vj 


n  CO  exo 


3+W^  an 


AX  1 

;ri  -rj 


(18?) 


where,  in  the  latter  expression,  use  has  been  made  of  the  second  half  of  the 
inequality  (171). 

By  a  similar  procedure  one  finds 


n  (x  )  a  n  (x  ,)  exp 
a  n  a  n-1' 


Ax_ 

-rl  <Vl>  v~^ 


(188) 


Repeated  substitution  of  equation  (188)  into  (187)  gives 


,  3n  (x.)  I  r 

■.‘W  -  \  “,.1>  ■  j-  [rl<V  “n  *  Wl>  “n-1 

rICVwo]/v 


+  .  .  .  * 


(189) 


If  the  segment  widths  Ax^fn  *  0,  1,  2,...)  are  now  viewed  as  "infini¬ 
tesimals"  equation  (189)  may  be  rewritten 
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If 


"If 


n  (x  ) 

na(x)-"bW  l+w(xT  SXP 


(190) 


n  (x  ) 
a  o 


exp 


-r. 


(X-XQ)/v 


l+w(n) 


]  I 

—  exp  | 


«^co 


<VrP 


where  w(x)  =  al(x)/hvg  and  xq  defines  a  convenient  reference  station  (e.g., 
the  upstream  edge  of  the  beam) . 


Using  the  basic  definition  (172),  the  rate  expressions  (178)  and  (181), 
the  identity  (170),  and  the  inequality  (171),  one  finds  on  substitution  into 


(190) 


g(x)  = 


Vx) 


|_l+w(x)  J 


exp 


w(x') 

l+w(xO 


(191) 


where  gQ  is  the  small -signal  gain  coefficient  given  by 


§o(x)  =  g0(x0)  exp 

It  is  instructive  to  note  the  physical  significance  of  various  terms 

appearing  in  equations  (191)  and  (192).  The  term  in  square  brackets  in 
equation  (191)  is  analogous  to  the  usual  gain  expression  for  a  homogenenously 

broadened  line  in  a  nonflowing  laser  medium.  Here,  however,  the  small-signal 
gain  coefficient  (192)  is  not  constant,  but  decays  exponentially  with  dis¬ 
tance  downstream.  The  nondimens ional  intensity  w(x)  measures  the  rate  of 
simulated  emission  jl/hv  relative  to  the  decay  rate  3  of  the  lower  level.  For 
a  nonflowing  laser  the  value  w  =  1  defines  the  saturation  intensity  of  the 
medium. 


r  x-n  a  (x-x  )] 


CO 


O  I 


v 


(192) 
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The  exponential  factor  in  equation  (191)  represents  a  corrective  term 
due  to  flow.  The  probability  that  an  initially  excited  CO^  molecule  will  re¬ 
main  excited  after  traversing  a  beam  is  dependent  on  the  beam  profile 
encountered  by  the  molecule  upstream  of  the  point  in  question.  This  explains 
the  presence  of  an  integral  over  the  upstream  flowpath  in  equation  (191). 

In  summary,  a  simple  approximate  expression  has  been  derived  for  the 
gain  coefficient  in  a  flowing  syste!I1,  The  validity  of  this  expression 

rests  on  two  principal  assumptions:  (1)  instantaneous  pumping  equilibrium  is 
maintained  throughout  the  optical  cavity  and  (2)  the  beam  intensity  changes 
slowly  over  the  characteristic  distance  for  lower  level  decay.  Although 
these  conditions  are  not  always  satisfied  in  practice,  particularly  near  the 
upstream  edge  of  the  beam,  it  is  believed  that  even  in  these  instances  equa¬ 
tion  (191)  provides  a  qualitatively  accurate  description  of  gain  saturation 
in  a  GDL.  The  gain  coefficient  defined  by  equation  (191)  is  then  included  in 
the  complex  transmission  function 


t  =  exp 


g(x,y;I)  AL/2  *  iA®  ( 


(x,y;I)J 


(193) 


to  describe  the  effect  of  the  medium  gain  throughout  a  segment  of  length  AL. 
Here,  A®  represents  a  phase  shift  due  to  possible  refractive  index 
variations . 


30.  SUBROUTINE  SLIVER 

a.  Purpose  --  Subroutine  SLIVER,  shown  in  Figure  64,  applies  an 
annular  aperture  to  the  field.  It  can  be  centered  anywhere  in  the  mesh. 


b.  Relevant  formalism  --  The  field  is  set  to  zero  interior  to  the 
annular  aperture.  Mesh  squares  intersecting  the  aperture  edge  have  the  field 
linearly  adjusted  for  the  relative  area  intersected  by  the  aperture  edge. 
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INITIALIZATION  SLIVER  .2-»-SLIVER  .19 


APPLY  AN  APERTURE 


SLIVER  .20— ■••SLIVER  .37 


FORM  THE  FIELD 
APERTURED  BY  THE 
ANNULAR  APERTURE 


SLIVER  .42— •■-CYCLE  9.68 


RETURN 


Figure  64.  Subroutine  SLIVER  organi ration. 


c.  Fortran 
Arguments 

RIN  *  Radius  of  the  OUTER  edge  of  the  annulus  (cm) 

ROUT  »  Radius  of  the  INNER  edge  of  the  annulus  (cm)  • 

NOTE:  Both  RIN  and  ROUT  oust  be  negative  to  call  '’SLIVER"  since 

if  DOUT  (*2*RIN)  and  DIN  (>2*R0UT)  are  negative  in  the  GDL 
call  IFLOW  a  4  section  SLIVER  is  called  instead  of  APRTR. 

Common  Variables  Altered 

CFIL  *  CFIL  contains  the  original  field 
CU  »  CU  is  used  to  find  the  aperture  field. 


The  Logic  of  Subroutine  SLIVER  is  the  following: 


wtrmwijijwi 


The  final  field  is  formed  by  subtracting  an  apertured  field  from  the 
original.  The  aperture  has  a  center  disk  of  radius  ROUT  while  the  inner 
radius  of  the  outer  edge  is  RIN. 

The  center  obscuration  is  first  removed  (IIN*0),  then  the  outer  obscura¬ 
tion  (IIN*1) .  This  apertured  field  (CU)  is  then  subtracted  from  the  original 
field  (stored  in  CFIL)  to  form  the  field  apertured  by  the  annular  aperture 
(CU). 

The  SLIVER  subroutine  computer  printout  follows. 
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31.  SUBROUTINE  SPIDER 

a.  Purpose  --  The  SPIDER  subroutine  shown  in  Figure  65  applies  an 
obscuration  to  the  complex  amplitude  field  in  the  form  of  several  support 
struts,  such  as  those  used  in  a  Cassegrain  telescope  system.  Up  to  six  struts 
at  separate  angles  may  be  modeled.  The  result  of  the  obscuration  is  listed 
in  the  output  stream  as  an  aperture  loss. 


b.  Relevant  formalism  —  An  angular  deviation  limit  a  calculated  from 
the  obscuration  inside  diameter  d,  the  grid  spacing  Ax,  and  the  strut  width 
w,  according  to 


a 


-1 

sin 


(w+2Ax)/d 


(194) 


Field  points  whose  inclination  angle  is  not  within  ±a  of  a  strut  angle  are 
assumed  to  be  unobscured.  Those  points  falling  within  this  limit  are  sub¬ 
jected  to  closer  inspection. 

The  distance  5  from  a  grid  center  (x,y)  to  the  strut  centerline  is 
calculated  by 

5  =  J y  cos6  -  X  sinej  (195) 

where  9  is  the  strut  angle.  The  half-width  of  a  grid  measured  along  a 
normal  to  the  strut  h  is  calculated  by 

h  *  X/2./AMAX  (  |sin9|  ,|  cos8( )  (196) 


then  the  maximum  and  minimum  distance  of  the  grid  area  from  the  centerline, 


d  and  d  .  are 
max  min 


d 

max 

d  . 
min 


5  +  h 

6  -  h 
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CALLED  FROM  GDL 


REPEAT  LOOP  FOR 
EACH  STRUT 

FOR  EACH  POINT: 


TEST  FOR  NEAR 
STRUT  ANGLE 


CALCULATE  MAX  AND 
MIN  DISTANCE  OF  GRID 
AREA  FROM  STRUT 


CHECK  TO  SEE  IF 
POINT  IS  OBSCURED 


CALCULATE  PARTIAL 
OBSCURATION  FACTOR, 
UPOATE  FIELD 


^  SPIDER 


°min  *  *  ‘h 


YES 


p  “  Pmax  jjjf 


°max  -°min 
CU  -  CU  -v/TT 


SPIDER  .17 


SPIDER. 38 


SPIDER. 40- 


SPIDER. 42 


SPIDER. 45- 


Figure  65.  Subroutine  SPIDER  flow  chart. 


Points  where  d  .  is  greater  than  the  strut  half  width  h  are  not  obscured, 
nun  s 

Points  where  d  „  is  less  than  the  strut  half  width  are  totally  obscured, 
max 

The  intensity  of  all  other  points  is  weighted  according  to 


intensity  weighting  =  (d  -h  )/(d  -d  .  1  ncm 

s  s  max  s'  max  mm' 

Argument  List 

DIH  diameter  of  inner  edge  of  support  (hub) 

NSPD  number  of  struts  or  spokes 

THETA  array  of  strut  angles 

WIDTH  strut  width 

XC  x-position  of  center  of  obscuration 

YC  y-position  of  center  of  obscuration 

Relevant  Variables 

ANG  inclination  angle  of  a  point  (x,y) 

ANGTOL  angular  width  about  the  strut  angle  which  defines  the  region 
to  be  searched  for  possible  obscuration 
DELTA  distance  from  (x,y)  to  the  strut  along  a  normal 

DELXDH  half-width  of  coordinate  grid  measured  along  a  normal  to  a 

strut 

PER  weighting  factor  in  establishing  fractional  obscuration 

Commons  Modified 
/MELT/ 

CU  the  complex  amplitude  field. 

The  SPIDER  subroutine  computer  printout  follows. 


SUBROUTINE  SPIDER  76/176  0PT»1  FIN  4.6+452  04/27/79  12.23.47 


SUOHUUTINC  SPIOCH  (Uluru,  rntl  A.NSPO.aC.YC.OIh)  SPIUGR 
C  OGnCHAL  SUPPORT  STRUT  MOOtL  SPIDER 
c  *•••  NUOlFItU  10/17/ 7S  to  HANDLE  HULtlPLt  THtTAS  SPlOtH 
C  THIS  MUUI1NC  APWI.lt S  AN  OMSCUHlNO  STRUT  THANSHISSION  FUNCTION  TO  SPlOtH 
C  TNG  CONPLCA  HELD.  The  SThuI  IS  alUTrt  alUt  » I  Tm  AN  ANOLt  (Rtf  A  SPIDER 
C  (IN  TH£  SCAM  COOPOINAlfc  SYSTtH)  ANO  (»OtS  H AO  1  ALLY  OUlaAHU  FHUH  SPlOtP 
C  LOCATION  l*CiYC)<  0 1 H  IS  HuS  U 1 AHt TEH , NSPU  IS  NU.  OF  STHUTS.  SPlUGfl 
C  UtLAOH  is  alUTH/id  or  COOHUINATG  OHIO  ALONO  NOHNAL  TU  STRUT.  SPlOtH 
C  OCLTA  IS  OlSlANCt  FHUN  A t Y  TO  CENTER  OF  STRUT  ALONO  NUHMAL  SPlOtH 
C  TO  STRUT.  SPIOGR 


l 

i 

A 

5 

6 
7 
a 

10 

u 
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LEVEL  2.  CU 

SPIOEH 

12 

CONMOH/HEL 1 /CU  ( 1638*1 *CF IL l 16912) .XI 126) .aL.NPTS.NPY.UNX.OMY 

SP10EH 

13 

01 MENS I UN  TMETAt 1) • INEf  (6) .SINT (61  tCOaT (6) «0ELXUH(6) 

SPIOEH 

1* 

COMPLEX  CU.CF1L 

SPIOEH 

IS 

DATA  Pi  •  T  #OP  1/  3. 1*1593  <6.203106  / 

SPIOEH 

16 

•OThh  a  aIUM/2.0 

SPIOEH 

IT 

0ELXU2  ■  U12>  -X(U)  /  2. 

SPIOEH 

IS 

ANGTOL  ■  ASIN  < (MlU t H*2.* ( A (2) -X ( 1 > ) ) /  OIH  ) 

SPIOEH 

19 

00  5  ITa i tNSPO 

SPIOEH 

20 

THET(IT)  a  fH£TA(in/57.J 

SPIOEH 

21 

SInT (IT)  a  SINTTHCTlin 1 

SPIOEH 

22 

COST (IT)  a  COS (THE f ( IT) 1 

SPIOEH 

23 

5 

OELXOH(II)  a  0ELA02  /  AMAXi ( AOS (CUST lit)) < AOS (SINT (IT))) 

SPIOEH 

2* 

12*0 

SPIOEH 

25 

00  10  Jal.NPY 

SPIOEH 

2k 

00  1(1  lal.NPTS 

SPIOEH 

27 

U  a  12*1 

SPIOEH 

2k 

ANO  a  ATAXIA!,!)  <X(1)  ) 

SPIOEH 

2* 

this  statement  changes  the  a tan2  he  tunned  angle  from  the  intehval 

SPIOEH 

JO 

-PI  TO  *PI  TO  THE  INTERVAL  0  to  tfl. 

SPIOEH 

31 

ir  ( AMG.GT . (-PI ) . ANO. ANG.L ( •  0.  »  ANO  a  ANO  «  TaOPI 

SPIOEH 

32 

DO  10  IT«l tNSPO 

SPIOEH 

J3 

THE 

FOLLOWING  is  NECESSARY  TO  MAKE  ANGLES  NEAH  2P1  SEEM  CLOSE  TO 

SPIOEH 

36 

ANGLES  NEAH  u  . 

SPIOEH 

35 

IF  (ANG.LT.  PI  )  SO  TU  IS 

SPIOEH 

3* 

IF  (AbSIANG— TwOPl— TH£T ( IT ) ) .LE.ANGTOL)  SO  TO  17 

SPIOEH 

37 

IS 

IF ( ABS ( AnG-ThET ( IT) I .ST . AnuTOL)  GO  TO  10 

SPIOEH 

3S 

17 

oelta  a  Aes((X(j)-rC)*cosnir)-<x(i/-AC)*siNT<ini 

SPIOEH 

39 

OMAX  a  0ELTA*0ELXUHdt) 

SPIOEH 

*0 

OMIN  a  OELTA-OELXOH(IT) 

SPIOEH 

*1 

IF (OMlN.GE.aOTHH)  GO  TO  1U 

SPIOEH 

♦2 

PEN  a  0.0 

SPIOEH 

*3 

IF(OMAX.LE.mOThh)  GO  TO  20 

SPIOEH 

*• 

PEN  a  SUNT ( 1UMAX— *0TMM) ✓ (OMAX— OMIN) ) 

SPIOEH 

*5 

40 

CU(12>  ■  CU(12)»PEM 

SPIOEH 

*6 

10 

continue 

SPIOEH 

*7 

N£  TUN  N 

SPIOEH 

*k 

ENO 

SPIOEH 

*9 

32  SUBROUTINE  SPTAN 

The  SPTAN  subroutine  shown  in  Figure  66  functions  to  take  input  values 
of  x  and  y  and  return  the  angle  whose  tangent  they  represent.  SPTAN  insures 
that  the  angle  returned  is  within  the  range 

0  <_  9  _<  2  tt 

FUNCTION  SPTAN  76/176  OPT-1  FIN  4.6+452  04/27/79  12.23.47 


FUNCTION  SPTAN(X.Y) 

SPTAN 

2 

PI *3.1 *139269* 

SPTAN 

3 

SPTANaO.O 

SPTAN 

* 

IF  ( X )  10.20.30 

SPtAN 

S 

10 

SP  T  ANaP I*ATAN(Y/X) 

SPTAN 

6 

HETUHN 

SPTAN 

7 

20 

1Fiy>  21.22.23 

SPtAN 

a 

21 

SPTAN*I.S«Pl 

SPTAN 

9 

22 

HETUHN 

SPTAN 

10 

23 

SPTAN*0.3*PI 

SPTAN 

11 

he  tuhn 

»PTAN 

12 

30 

SPTANBAT AN( Y/X) 

SPTAN 

13 

1FIY.LT. 0.0)  SPT  ANaSPT  AN* 2. #P 1 

SPtAN 

1* 

Ht  TUHN 

SPTAN 

IS 

ENO 

SPTAN 

16 

235 


Figure  66.  Subroutine  SPTAN  flow  chart. 
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33..  SUBROUTINE  STEP 


a.  Purpose  --  Subroutine  STEP  shown  in  Figure  67  is  used  to  propagate 
the  field  through  a  vacuum.  It  also  calculates  Strehl  intensity. 

b.  Relevant  formalism 

(1)  Propagation  —  STEP  allows  for  two  types  of  propagation 

(a)  Constant  area  mesh  —  This  type  is  used  to  propagate 
collimated  and  quasi-collimated  beams.  It  assumes  that  edge  spreading  of  the 
beam  due  to  diffraction  is  not  severe  enough  for  the  beam  to  get  too  close  to 
the  edge  of  the  calculation  region. 

(b)  Variable  area  mesh  (VAMP)  —  VAMP  is  used  to  propagate 
beams  containing  phase  with  curvature.  As  will  be  shown,  the  curvature  is 
first  removed  from  the  field.  The  (collimated)  field  is  then  propagated  an 
equivalent  propagation  distance  which  is  defined  by  the  formalism.  After 
propagation,  the  propagated  curvature  is  returned  to  the  field. 

The  theory  of  VAMP  propagation  is  developed  in  Section  5-D  of  AWFL-TR- 
73-231  and  is  repeated  here  for  continuity. 

First,  consider  constant  area  mesh  propagation.  The  scalar  wave  func¬ 
tion  propagating  in  the  Z-direction  is  written 

»(*.t)  =*  U(5)el(Wt'k::i  (198) 

equation  derived  from  Maxwell's 

(199) 


(200) 

then  u(x)  obeys  the  paraxial  wave  equation 


The  function  t|>(x,t)  obeys  the  scalar  wave 
equations 


_2  1  3  ^ 

7  *  "  T  ”T 

c  3r 


If  one  assumes  that 


3"i b  ,  3u 
—4-  <<k  — 


3t 


<)Z 


Figure  6".  Subroutine  STEP  organization. 
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By  using  the  method  of  Fourier  Transforms  u(x)  is 


where 


u(x)  =  JJ ifxdfv  e2ltl(fxx+fyy)U(fxx  ♦  )£iirXZ(fx  y~}  (202) 

•  CO 

00 

U(fx,fy)  »  jj dx'dy'e‘2iriCfxx'  +  fyy')  U(x',yJi,0) 


The  Fourier  Transforms  are  efficiently  performed  by  using  the  FFT. 

For  variable  area  mesh,  the  following  approach  is  used: 

The  spreading  of  the  beam  is  estimated  by  that  of  a  Gaussian  reference  beam 
with  the  same  radius  of  curvature  as  the  physical  beam.  This  curvature  is 
removed  so  that  during  propagation  the  beam  continues  to  fill  the  calcula¬ 
tion  region. 

Propagation  of  a  Gaussian  beam  is  easily  handled  by  assuming  knowledge 
of  the  associated  Gaussian  plane  wave.  According  to  Siegman,  Chapter  8, 

(Ref.  14) ,  a  Gaussian  plane  wave  (at  Z  =  0) 


wv 


when  propagated  a  distance  Z  becomes 


u(x,y,z)  * 


V?  (&)  '-1 


(kz-ij;(z))  £-(x2+y2) 


where 


R(z)  =  z 


W(Z)  *  WQ  fl  * 


•ii(z)  *  tan"  {  — I 


14.  Siegman,  A.  E.,  An  Introduction  to  Lasers  and  Masers,  McGraw-Hill, 
New  York,  1971 . 


239 


with 


,  the  Rayleigh  range. 


Therefore,  to  propagate  a  Gaussian  beam  of  waist  w(Z)  and  radius  or  curvature 
R(Z)  a  distance  AZ,  the  following  approach  should  be  taken: 

Knowing  the  waist  and  radius  of  curvature,  one  can  determine  the  spot 
site  wq  and  distance  to  the  spot  site  Z,  according  to 

zi a  7  r? 

/XR(z  ^ \-  (205 

1 W) 


W(2X) 


^rw(t1)  ^ 

+\XRCt1)  j 


Then,  from  this  origin  a  distance  Z^  =  21  +  AZ  is  propagated  to  determine  the 
desired  wave  function. 

Since  it  is  known  how  a  Gaussian  wave  propagates,  it  is  possible  that 
transforming  a  given  wave  with  a  spherical  wave  front  to  Gaussian  coordinates 
could  result  in  the  propagation  of  a  quasi-collimated  wave.  The  appropriate 
transformation  is  found  to  be 


fk(x2  +  y2)  -1  /  z\ 

2RW  fa) 


where  Z  is  the  distance  from  the  current  reference  Gaussian  beam,  defined  by 
R(Z)  and  w(Z)  to  its  spot.  2^  is  the  Rayleigh  range  of  this  reference  Gaus¬ 


sian  beam. 


By  transforming  to  Gaussian  coordinates: 


x/w(z) 


"(4) 


Y  =  y/w(z) 
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The  beam  transformation  is  written  as 


2  ? 


u(x)  *  v(x)  ^°5  z  £-i(X“+Y  )  tan  Z  +  iZ 


(209) 


Inserting  this  equation  into  the  paraxial  wave  equation  results  in  the  fol¬ 
lowing  differential  equation  in  terms  of  Gaussian  coordinates 


-4i  |1  ♦  +  Ll  +  4  (1-(X2+Y2))  v  =  0 

aZ  3X2  3Y2 


(210) 


which,  except  for  the  quadratic,  is  similar  to  the  paraxial  wave  equation. 

The  quadratic  term  (X“  +  Y")v  can  be  dropped  if  the  reference  Gaussian  para¬ 
meters  and  propagation  distance  are  chosen  so  that  v  is  equal  to  zero  when¬ 
ever  X  or  Y  approaches  1.  This  implies  that  the  initial  waist  of  the  refer¬ 
ence  Gaussian  be  much  larger  than  the  sice  of  the  beam  to  be  propagated.  The 
propagation  distance  AZ  must  then  be  restricted  so  that  the  waist  of  the 
reference  beam  remains  large  compared  with  the  beam  size  throughout  the  prop¬ 
agation.  With  these  restrictions,  the  equation  for  v  in  Gaussian  coordinates 
becomes 


32v 

+  ifv  +  4v  -  4i  =0 

(211) 

3X2 

3Y2  '1' 

• 

As  is  the  collimated  case,  Fourier  Transform  analysis  gives  the  following 
result: 


v(X,Y,Z) 


df  df 
x  y 


V(fx,fy,Z)e 


2*i(fxX-fyY) 


(212) 


where 


Vff  ,f  ,1) 

x  v 


,,,,  ,  -i  fl-n2f  f  2  ♦  f  Q 

Vffx*fVtle  l  x  y  J 


I 
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and 


-  Jf  dXdY  VCX,Y,Z)r2T(fxX+fvY'1 

—  CO 

the  propagated  wavefunction  is  then  v(X,Y,Z)  multiplied  by  the  propagation 
envelope: 


u(x,y,z) 


V(X,Y,Z) 


cos  Z 
w 

0 


,i(X2+Y")  tan  Z  *  iZ 


(213) 


where 


:  being  the  final  distance  from  the  reference  spot.  If  the  propagation  takes 
place  well  outside  of  the  Rayleigh  range,  Z  is  much  greater  than  ZR  and  the 
expansion  of  the  arctangent  for  large  argument  can  be  used: 


/I  l\  (214) 

Vi  ■ 


(2)  Strehl  intensity  —  Since  subroutine  STEP  propagates  the  beam 
using  Fourier  Transforms,  the  Strehl  intensity  is  easily  calculated. 


The  Strehl  intensity  gives  an  irradiation  of  the  amount  of  aberra¬ 
tion  present  in  the  beam  at  a  given  limiting  aperture.  It  is  defined  as  fol¬ 
lows:  Consider  a  field  U(x,y).  The  field  in  the  Frauenhofer  diffraction 
region  (the  far  field)  is  given  by  equations  (4)  through  (13)  in  Goodman: 


k  2  2 

r,  -  ike  i^T  (*  ) 

u(x)  =  £  e  2z 


ff  (x.xO  . 

j[/u(^£U  dx' 


(215) 
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The  Strehl  intensity  is  defined  as  the  ratio  of  the  centerline  intensity  of 
the  far  field  to  that  of  a  plane  wave  propagated  the  same  distance  coming 
from  the  same  aperture  with  the  same  power.  Analytically  this  is  given  as 

12 

I F  (u(x')) 


L STREHL 


CL-FF 

[LL-PW-FF 


f  ttftn) 


f  =  0 

T~ 


(217) 


f  =  0 

The  plane  wave  centerline  intensity  is  evaluated  from 


f  =  0 


r  rv  2*frcose 

(v (ro) 

s  A  /  rdr  yd0£ 

0  0  J 

(218) 


■> 

-  ir  a~A 


A  being  the  plane  wave  amplitude  and  a  the  radius  of  the  aperture.  Assuming 
a  calculation  region  size  of  the  L  x  L  with  N  x  S  -  total  number  of  points, 
the  centerline  intensity  of  the  far  field  for  the  real  beam  is  found  from 


2jrif*  x 


2rif-  x 


F  (u&i)  =jj dx  u  (x  )« 

-oo 

L  L 

=  j* dx  J' dy  ufx 

ajt(-)  £  f  -  )  2iri(|)  (If'x  +  JV 

1  =  1  \  .V  )  jTi  /  u  d.  J)« 


(219) 
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where 


c .  Fortran 
Argument  List 

DELZ  *  Distance  to  be 

RADCY  =  radius  of  curvature  or  the  phase  front 

WINDOX  =  x-space  cosine  data  window  for  FFT 

WINDOK  *  K-space  cosine  data  window  for  FFT 

IFG  =  Vamp  control  parameter 

=  1  constant  mesh 

=  2  variable  mesh 

ITR  «  Vamp  control  parameter 

*  0  stay  in  vamp 

a  1  transform  back  to  constant  mesh  space 
IPS  =  Tilt  and  defocus  removal  flag 

=  0  no  correction 

a  1  remove  tilt 

a  2  find  defocus  radius  of  curvature 
a  31+2  together 

total  beam  tilt  kep  track  of  for  beam  placement  in  the 
inertial  coordinate  system  instead  of  the  beam  coordinate 
system 

NWRT  ^0  Propagates  a  wave  distance  DELZ  without  altering  the  stored 
value  of  total  Z.  NWRT  *  1.  Suppresses  Strehl  intensity  cal 
culation  as  well.  NWRT  »  1  when  STEP  is  called  from  QUAL. 

IFLAG  #0  Assumes  VAMP  and/or  CAMP  parameters  are  established.  It 
tells  the  routine  to  continue  the  propagation  based  on 
previous  calculations  of  waist  and  curvature. 

Common  Variables  Altered: 

CU  -  becomes  the  propagated  field 

CFIL  -  is  altered  if  IPS  M  by  a  call  to  TILT 
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X 


altered  if  in  VAMP 


DXREAL  -  moved  to  keep  track  of  center  of  beam  in  inertial  frame  as 

DYREAL  .  , 

the  beam  propagates 

WNOW  -  VAMP  parameter  altered  to  keep  track  of  the  current  spot  size 
NREG  -  Flag  to  tell  whether: 

a  0:  Constant  area  mesh  propagation 
*  1:  VAMP  inside  half  the  Rayleigh  range 
=  2:  VAMP  outside  twice  the  Rayleigh  range 
Other  routines  called: 

TILT 

FOURT 

Computer  printouts  for  subroutine  STEP  follow. 
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A  IFLAU  ) 
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c 
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STtP 

4 

c 
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S 

c 
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STtP 
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STtP 

T 
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8 
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STtP 

9 

OlHENSIOP  NNOT2) .APHI2.2610) .F  AC  TP ( 0* ) ,CUHCJ2TS0) .COOHHI2) 

STEP 

10 

DOUHLt  PPtCISlON  00  •  ZW  AL  ?  2 1  t H AUCUH .  00  *  «F  •  TNZ 2 

STtP 

11 

COPPLEA  CO.CFIL.CUOM 

SltP 

12 

EOUt  VALE'SCE  ICO(I)  •CUHI1II  •  ICOUMiCUUMW(l)  > 

STEP 

13 

DATA  Z1«T£  /O.O/ 

SttP 

14 

IF  (IFLAO.NE«0)  SO  TO  2000 

STEP 

IS 

Pl>3. 141*92 

STEP 

16 

*PZP2»*PTS«Z 

STEP 

If 

nP  ■  NPTS/2 

STEP 

10 

NPP  l  a  "tP  ♦  1 

STEP 

19 

ANP2«l .0/FLOAT (MPTS) #«2 

STEP 

20 

N*OU)  a  NPTS 

STEP 

21 

MNOT2)  a  *PTS 

STEP 

22 

MANa2«NP(S*NPTS 

STEP 

23 

NMfeSaO 

STEP 

24 
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STEP 

2* 
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STEP 

26 

IF (PNUOA.LE.0.0)  SO  TO  40 

STtP 

27 

N4N00X  a  »NOO*»FLOAT INP1S) 

SfEP 
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non 


c 

A-SPACE  COSINE  OAT*  alNOOa 

SftP 

29 

00  211  lal.NRNUOA 

step 

30 

211 

F ACTH ( I )  a  <1.0-COS(Pl*FLOAf (I) /FLOAT INaNOOA) ) 1/2.0 

step 

31 

*a 

NaNOOM  a  aNOOK*FLOAT INPTS) 

SttP 

32 

NOaNPP 1 - 1  -NaNOOK 

STEP 

33 

IF  IIPS.NC.OI  SO  TO  1137 

step 

34 

IF  UFS.LT.l)  go  TO  1137 

step 

35 

IF  < IFO.OT.St  SO  TO  1137 

step 

36 

IF  ( IFO.tO.i)  00  10  1002 

step 

37 

00  TO  S 

step 

36 

c 

DETERMINE  LINEAR  ANO  OUAONATIC  COMPONENTS  OF  PHASE 

step 

39 

1137 

CALL  TILT (AA.AT*«AOC*R» IPS) 

STEP 

40 

IF  (IFO.ur.ll  00  TO  1139 

StEP 

41 

IF  (1F0.PT.2)  OO  TO  1139 

STEP 

42 

IF  UFO.tQ.l)  SO  TO  1002 

step 

43 

00  TO  S 

step 

44 

1139 

RMMEAKal.E/O 

StEP 

45 

IF  <OAdS(RAOCUR/OEL2> •OT.MOMEAM)  00  TO  1002 

STEP 

46 

C 

♦  4 

StEP 

4T 

C 

VARIA6LE  ARtA  MESH  PROPAGATION  TRANSFORMATION  TO  EQUIVALENT 

StEP 

46 

c 

COLLlMATtO  SEAM 

StEP 

49 

5 

ALPHAalO. 

StEP 

50 

c 

OETENMINATION  OF  BEAM  »A1ST  ANO  OlSIANCE  to  it 

StEP 

51 

01  a  ALPHA*0CALCl/2. 

StEP 

52 

•  <  a  ( a I »a 1 *P l /at )  **id 

StEP 

53 

Z1  a  MA0Cuh*6*/ (RA0CuR**2*aal 

step 

54 

wO  aOSOHI  (OSURT  H AoCOH*Zl»2 1 ••2) »»L/P l ) 

STEP 

55 

ZRAL  ■  Pi»aO#»0/ac 

StEP 

56 

ANZ*2. 

sIep 

57 

IF  (0A8SCZ1) .LT.ZMAL/ANZ)  NMtual 

StEP 

56 

IF  (DAdSIZl) .OT.ZHAL»»NZ)  i«HEoa2 

STEP 

59 

IF  (NHto.tO.U)  00  TO  12 

STEP 

60 

IF  <OAHSIZI*uELZ) .Gt.ZHAL/ANZ.ANO.NRtO.tU.i)  00  TO 

12 

StEP 

61 

IF  (UAHS 1 1 1 *OElZ >  .L  f .ZR AC* ANZ .ANO.wMtO.EO.2)  00  10 

12 

StEP 

62 

OomE  a  Pia*2«ZHAC/<0CALCl/all»«2 

STEP 

63 

IPnT  a  1 

STEP 

64 

c 

fcSribLlS"  PMOPAOAT1NO  matmia 

SttP 

65 

c 

INCLUOES  FREUUEnCY  space  OATA  alNOO* 

SIEP 

66 

00  101  JaatNPPl 

SIEP 

67 

AJMISU  a  (3-l)*»2 

STEP 

66 

wFaCTR  a  l.u 

SIEP 

69 

ifio.ot.no  .ano.  NHNOoft.or.oi 

step 

70 

1  aFACTW  ■  t 1 . O-COS (P i«FLUA T INPR l -0) /F COAT (NaNOOK )) ) /2 .0 

STEP 

71 

DO  101  1*1.3 

STEP 

n 

OUM  *  1 AON ISO* I I“1 1 **2) 

StEP 

73 

IPNT  a  I PN T • 1 

SIEP 

74 

APH  T  1 .  I PN  7  )  *wF  AC  T R 

STEP 

75 

mi 

APH (2. IPNT ) *OUME*OUM 

SttP 

76 

TNZ1  a  Zl/ZPAL 

StEP 

77 

lvll»0 

StEP 

78 

00  2  Aal.NPT 

StEP 

79 

YSO  a  AIK) •*£ 

StEP 

60 

00  2  lal.NPTS 

SIEP 

61 

101  a  101  «  1 

STEP 

62 

1012  a  101  •  2 

StEP 

63 

10I2M1  a  1012  -  1 

SttP 

64 

PHI  a  (All) **2  •  TSU)*fN21/oiaa2 

StEP 

65 

SInP  a  StN(PHl) 

StEP 

66 

COSP  *  C0S1PH1) 

step 

67 

CUPS  a  CUHII0I2M1) 

SttP 

66 

COPUOIZMII  a  al»t  CUHS*CUSP  -  CUR ( 1012) *SINP  ) 

SttP 

89 

2 

CUP  < 1012)  a  a  1 • (  C0HS*S1NP  *  COP  1 1012) *COSP  ) 

step 

90 

IF (NRPT .NE.OI ZKEEPaZZZ 

step 

91 

ZZZ  a  Z1 

step 

92 

Z1nTE«0. 

SttP 

93 

a3*Pl 

StEP 

94 

IF  IIFS.EO.O)  l (Pa  1 

STEP 

95 

00  TO  2000 

StEP 

96 

c 

♦ 

step 

97 

c 

CONSTANT  AREA  MESH  PROP AO A  1  ION 

step 

98 

c 

INCLUOES  FRCUOENCT  SPACE  uATA  alNOOa 

step 

99 
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1002 

*C0UM1»2.»PI/9L 

STEP 

100 

QUH 1  a  (PL/0CALC1 ) **2 

STEP 

101 

IPNT  a  1 

STEP 

102 

C 

ESTABLISH  PROPAGATING  HATM1X 

SfEP 

103 

00  200  J*2«MPP1 

STEP 

10* 

AJH1SO  *  (U-ll**2 

STEP 

105 

aFACTR  a  1.0 

SfEP 

106 

IF(J.Gf..<0  .AND.  NaNOOK.GI .0) 

SfEP 

ior 

1  aFACTR  *  (l.O-COS(Pl*FLOAT (nPP1-U)/Flo*I (n«M00K) > 1/2.0 

SfEP 

108 

00  200  1*1  * J 

SfEP 

109 

OUN  a(AJHlSQ* ( I-l) *«2) 

SfEP 

110 

0UM2  a  QUMl*UUM 

SfEP 

111 

OUHJ  a  (0.125*OuM2»0.5)*UUM2 

SfEP 

112 

IP NT  a  I PN T  » l 

SlEP 

113 

APP(1 « IPN T > *aF  AC TP 

SfEP 

11* 

200 

APR (2* IPNT ) **C0UH1*UUM3 

STEP 

US 

c 

ENTER  POUUNt  rttMfc  KHtN  COnT  ImUING  «1IK  SAME  PROPAGA  T  INli  HATH IX 

STEP 

116 

c 

tNTRY  COPE (UtL2 • 1  TH  »N*H T ) 

STEP 

ur 

2000 

222*222 *OKl2 

SlEP 

118 

IMNaRT.NE.O)  00  TO  *02 

step 

119 

2iNTt«2INTE*U£L2 

siEP 

120 

22MlNa2lNTE-UEL2 

SlEP 

121 

XHESH  a  A(NPTS)-2.*A 1 11 *A <2> 

SfEP 

122 

WCtK«( 1 .-2.**NUOA) *A(NP tS) 

STEP 

123 

IF (RAPTx.Ot.PCElOPAPTHaU. 

SlEP 

12* 

*02 

IF  (MMEG.EQ.O)  00  To  92 

STEP 

125 

aNO*a*0*USUPI ( 1 . ♦ (222/2PAL) **2) 

STEP 

126 

A AP ANO»*NO*/ a J 

STEP 

127 

aJawNOW 

SfEP 

128 

c 

AOOUST  BEAM  COORDINATES  FOR  MAGNIFICATION  AMO  MIHROR  TIL> 

SfEP 

129 

00  93  1*1  tWPTS 

STEP 

130 

93 

X ( I ) ax ( I 1 *AAPAMO 

SfEP 

131 

92 

OAMEALaOAMEAL*  SlN  (AA)  *  g£L2 

STEP 

132 

D THE AL*OY HEAL*  SIM  (AY)  •  g£L2 

STEP 

133 

IF(BNOOX.LE.O.OI  GO  TO  *9 

SIEP 

13* 

C 

APPLY  X-5PACE  COSINE  OATA  alNOOB 

SfEP 

135 

0O  212  laltNPTS 

SfEP 

136 

00  212  Oal.MWMOOA 

SfEP 

137 

I 02  ■  I  •  (NHTS  -0>  *  NPTS 

SfEP 

138 

IF  (NPY.tQ.MPTS)  CU ( 1 J2 )  a  CU(IJ2>  •  FACIPU) 

STEP 

139 

IJI«I*(J-1)*NPTS 

STEP 

1*0 

212 

CU(lJl)*CU(lJl)*FACTH(J) 

STEP 

1*1 

00  213  Jal.MPY 

SfEP 

1*2 

10  a  <0-l>*NPTS 

SfEP 

1*3 

00  213  lal.NMNOUA 

SfEP 

l** 

I2*MPTS*1-I 

STEP 

1*5 

CU ( 1*10) aCU (I*lJI*FACTR(l) 

SfEP 

1*6 

213 

CU ( 12* 10) *CU (I2«l0l*FACTP(l) 

SfEP 

1*7 

C 

UNFOLO  SYMETH1C  FIELD  FOP  FFT  USE 

SfEP 

1*8 

*9 

IF  (NPTS.EQ.NPY)  GO  TO  50 

SfEP 

1*9 

00  IS  Oal.MPY 

STEP 

150 

00  IS  lal.MPTS 

STEP 

151 

10  a  I  *MPTS*(0-1) 

SfEP 

152 

101  a  I  •  (NPTS-0>*NPTS 

SfEP 

153 

IS 

CO ( 10 I 1 ■  CU(IO) 

STEP 

15* 

c  •« 

• 

SfEP 

155 

c  • 

STmEHL  INTENSITY  IS  CALCULATED  FROM  THE  CENTEPLINC’ INTENSITY 

• 

SIEP 

156 

c  • 

OF  THE  FAN  FIELD  DISTRIBUTION,  Tht  METHOD  USES  THE  CENTERLINE 

• 

SfEP 

157 

c  • 

COEFFICIENT  OF  THE  FFT  FOP  THE  UMMOPMALIZEO  CENTEHLINE 

* 

SfEP 

158 

c  • 

INTENSITY.  POaEP  CDNSEPVATlUN  IS  USED  TO  OEFlNE  THE  PLANE  WAV* 

SfEP 

159 

c  • 

NEAR  FIELD  INTENSITY  VALUE.  THE  RATIO  OF  CENTERLINE  INTENSITY 

• 

STEP 

160 

c  * 

(FFT)  TO  PEAK  INTENSITY  (PLANE  *AVE>  OtFINES  STREHL  INltNSitYi 

• 

SfEP 

161 

c  • 

IN  THIS  ROUTINE.  0  FOHOHAM  10  28  T* 

• 

SfEP 

162 

c  *< 

4 

SfEP 

163 

so 

IF (HAPTM.EQ.O .0 .OH.NUH T . tU. 1 ) GO  TO  96 

StfcP 

16* 

X1T0T  a  o. 

SfEP 

165 

PI  a  3.1*1596 

SfEP 

166 

XME5H*  a  AMESH***. 

SfEP 

167 

NOB*nPTS*NPTS 

SfEP 

168 

DO  95  lal.MOB 

SfEP 

169 

12  ■  I  •  2 
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XlTOT  a  XlTOT  •  CuN(12-l)«*2  «  CuMlt2)**2 

STEP 

171 

95 

CONTINUE 

SftP 

172 

c 

AlTOT  a  INTtUNAL  OK  InTEnSI T Y  (UNNONMAC  UtO  I 

STtP 

l/J 

c 

CU(1)  CONTAINS  CtNTtN  ciNt  FkT  OK  ,*tAN  K  ItLO  0 1 S TN IriU r ION  AK Tt» 

SItP 

It* 

c 

NtTUMN  FHOM  ••  FOUNT". 

STEP 

ITS 

c 

TNANSFONH  CUMPLtX  r ItLO  TO  FHtJUtNCY  SPACE  WITH  FK T 

S  1  tP 

1  Tb 

9b 

CALL  FOUNT  lCU.NAH.NHO. 1) 

STEP 

177 

IF (NAPTH.Eu.u.O.UH.NaNT.tU.lluO  fU  99 

SItP 

1  TB 

ANtA  a  Pl«NAPTH*** 

srtP 

1  T9 

ANEASw  ■  ANtA  •  AN£A 

STtP 

100 

XlttAN  a  AlTOT  /  NUN 

STEP 

101 

XidNP*  a  X  Id  AN  •  l  (  XM£Sh*AMe.Sh| /ANtA) 

SItP 

102 

c 

••• 

xldNPa  a  PLANE  aAvt  INTENSITY  ( Nt AN  F 1EL0) 

SItP 

103 

NUdSU  >  i4tJd  •  NUd 

STtP 

10* 

XlNONM  a  XHESNA  /  NOdSU 

SftP 

10S 

CLIFF  a  (CUN ( 1 1 **2  *  CUM(2)*P21  •  AlNONM 

SItP 

10« 

c 

CLIFF  a  CENTtHLINt  INTENSITY  (FAN  FltLO) 

stEP 

10  T 

c 

STNEHL  intensity 

SltP 

100 

STNlNT  a  CLIFF  /  (XldNPd*  ANtASU) 

STtP 

109 

■HITE  (b.lbf  STNlNT 

SItP 

190 

FONMAT(///2X.19H  STNtNL  INTENSITY  a  .012. S> 

SftP 

191 

99 

NAPTNag.o 

srtp 

192 

OT2*UEL2 

STEP 

193 

c 

CALCULATE  OElZ  in  EOUlYALtNl  COLL  IMA  TtU  COONOlNATE  SYSTEM 

STEP 

19* 

IF  (NNtO.EU.l)  UTZaUATANUZZ/iMALl-OATANI UZ2-0ELZ) 7ZNAL) 

STEP 

19S 

IF  (NNE0.tU.21  UTZ*UELZ/U2Z»(22Z-0tLZ)  > 

STtP 

19b 

IF*nT  a  l 

SftP 

197 

CU(  1  1  aCU  (  1  >*ANP2 

SftP 

190 

c 

APPLY  PNUPAGaTION  NATNlX 

SftP 

199 

00  1U0  J»2.NPP1 

siep 

200 

Jl  ■  NP2P2-J 

SftP 

201 

00  100  I«1.J 

STEP 

202 

11  *  NP2P2-I 

sfEP 

203 

IPNT  a  INNT«1 

SltP 

20* 

PHI  a  JIZ  •  APN (2. IPNT 1 

STEP 

20S 

SINP  a  SIN (PHI ) 

STtP 

20b 

CUSP  a  COS (PHI) 

SIEP 

207 

ACNST  a  ANP2  •  APN(l.lPNT) 

SftP 

200 

COUNN(l)  a  ACNST  •  CUSP 

StEP 

209 

COuMN 12)  a  ACNST  •  SINP 

SIEP 

210 

c 

CUUM*ANP2«APH (I. IPN I 1 *CEAP ( CHPLX ( 0 . . APN ( 2 . IPN T) *0 T l 1  > 

STEP 

211 

CU(I»NPTS«(J-In  a  CU(l»NPtS*( J-l) l*CUUM 

SfEP 

212 

IF(I.tU.J)  00  TU  100 

STEP 

213 

CU(J«NPTS*(1-1) 1  a  CU(J*NPTS»(l-l))*CUUM 

STEP 

21* 

IF (J.E0.NPP1)  00  TO  109 

STEP 

21S 

CU(I«NPTS»(Jl-l) 1  a  CU( l»NPTS*(Jl-U I »CUUM 

SftP 

21b 

CU( JI«NPTS»( I-I) la  CU  I  Jl  *NP  TS* ( I— 1 1 )»CDUN 

SItP 

217 

IFU.LT.21  00  TO  100 

SfEP 

210 

CU(I1»NPTS«(J-U 1  ■  CU< ll*NPIS»( J-l) 1 »CUUN 

STEP 

219 

CUlJ«NPTS«<ii-l> 1  a  CU(J«NPTS»< ll-l) >*CUUN 

STtP 

220 

CU ( 1 1 »NP T  S* ( J 1 - 1 1 1  a  CU(il*NPfS#(JI-ll l«COUN 

SftP 

221 

CU  ( Jl  »NP  TS*  ( 1 l-l 1 1  ■  CU(Jl»NPiS»(ll-l) )*CUUM 

STEP 

222 

OO  TO  100 

SftP 

223 

100 

IF(I.EO.nPPI)  00  TO  100 

SltP 

22b 

CU(1*nPTS*(J1-1) 1  «  CU ( l»NP TS» ( Jl-1 1 1 *CUUN 

SltP 

22S 

CU(Jl»NPTS*ll-l) 1  a  CU(JI»nPTS*(1-11 ) »CUUH 

STtP 

22b 

Cut  1 1«NPIS*( Jl-1 1 1  ■  CU ( 1 1 *NP 1 S* ( Jl  — 1 1 1 *LUUM 

step 

227 

00  TO  100 

SftP 

220 

109 

IFU.lT.21  ou  TO  100 

StEP 

229 

CU ( 1 1 *NP T S* ( J— 1 1 1  a  CU(ll.NPTS*(J-l) )*COUH 

STtP 

230 

CU(J»nPTS*( ll-l)  1  a  CU(J«N»MS#(ll-in«CI>UM 

STtP 

231 

100 

CUNT INUE 

sitp 

232 

c 

TNANSFONH  COHPLtx  FIELO  TO  X-SPACt  a l f H  FFT 

SltP 

233 

CALL  FOUNT ( Cu.NAN.NNO*— 1 1 

SltP 

23* 

IF  (NdNT.Nt.01  ZU»i*  t£P 

SftP 

235 

IF  ( 1 TN.tO.O.ON.NNEO.tU.U 1  NtIUNN 

SftP 

23b 

c 

TNANSFONH  FNUH  tUUiVALtNI  COLLIMATEO  COONOlNATE  SYSTEM  (AC.YC) 

SftP 

237 

c 

(TACK  TO  NEAL  COONOlNATE  SYSTEM  (X.Y). 

SIEP 

230 

OF  a  dO»OSONT(l..(22Z/2NALI»«2> 

SftP 

239 

TNZ2  a  222/ZNAL 

SltP 

2b0 

FFa TNZ2/(dF*dF) 

SftP 

2b  1 

00  *2  Jal.NPY 

step 

2b2 

249 


rsu  ■  X (dl •*£ 

SIEP 

243 

DO  42  l*l*NPTS 

STEP 

244 

Idl  ■  I»U-l)»NI»TS 

STtP 

2*5 

U12  •  2  •  Idl 

SItP 

246 

Idl2Nl  a  IdU  -  l 

step 

247 

PHI  a  -<A  <!)••£  *  TSOI  *ff 

STEP 

248 

S1NP  a  SIN  (PHI) 

siEP 

249 

CUSP  a  COSl PHI) 

STEP 

250 

CUKS  ■  COW<ldI2Ml) 

SIEP 

251 

CUH(ldI2Ml)  a  (CUHS*COSP  -  CUH(ldl2)*SlNPI/HP 

STtP 

252 

42 

CUH ( I d 1 2 >  a  <CUHS*S1NP  •  CUH ( Id  12 1  *CQSP t  /*►' 

STEP 

253 

XXPANOawF/fcl 

StEP 

254 

N«t<3  a  0 

SIEP 

255 

*H 1 Tt  (*<5221  AAPANO 

STEP 

256 

622 

FOWNAT  I/J7H  Th£  MaGNIF  UAt  ION  UF  Trit  MtLO  IS  iF10«6/l 

SIEP 

257 

PC  TOWN 

StEP 

258 

12 

aWITfc  (6*91 

SltP 

259 

9 

FOMHAT  (///*33H  INVALID  V AH  1  ABLE.  HESH  HfcOlON  ,/«SJH  SUBHOUII 

SiEP 

260 

iNfe  STEP  COUNT {NO I NO  OlTM  CONSTANT  HES H  */.65H  NOTE  POSSIBLE  EXP 

SftP 

281 

UNSlON  0 F  Tlit  BEAN  OUTSiUE  f  Ht  CALC*  HtOlON  .///) 

StEP 

282 

IFti-l 

StEP 

263 

NHEOaU 

step 

264 

00  TO  1002 

SiEP 

285 

ENO 

step 
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34 .  SUBROUTINE  TBLOOM 

a.  Purpose  --  This  subroutine,  shown  in  Figure  68,  is  used  to  model 
four  types  of  thermal  blooming  which  may  be  seen  by  a  beam  as  it  propagates 
through  an  absorptive  medium. 

The  four  types  are: 


1. 

Tran verse 

2. 

Axial 

3. 

Free  convective 

4. 

Transient 

b.  Relevant  formalism  —  Thermal  blooming  arises  as  a  consequence  of 
the  absorption  of  laser  radiation  by  the  transmitting  gas.  The  absorbed  radi¬ 
ation  heats  the  gas  and  consequently  changes  its  refractive  index.  These 
variations  in  the  index  of  refraction  induce  phase  changes  in  the  propagated 
beam.  Phase  changes  produced  by  thermal  blooming  can  result  in  beam  diver¬ 
gence,  which  overloads  apertures  and  provides  a  source  of  high  energy  feed¬ 
back.  Thermal  blooming  also  degrades  beam  quality.  Thermal  blooming  models 
are  available  in  the  SOQ  library  to  describe  the  impact  on  the  beam  phase  and 
amplitude  produced  when  thermal  blooming  occurs  in  (1)  a  transverse  flow 
field,  (2)  an  axial  flow  field,  (3)  a  free  convective  flow  field,  and  (4) 
transient  conditions  with  no  external  flow. 
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Figure  68.  Subroutine  TBLOOM  flow  chart. 
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Figure  69  schematically  demonstrates  the  procedure  used  to  modify  the 
complex  field,  U(x,y) ,  as  it  is  propagated  through  a  thermal  blooming  gain 
phase  segment  within  the  SOQ  code. 


Figure  69.  Illustration  of  thermal  blooming  model. 

As  the  beam  is  propagated  a  distance  AL  through  the  medium,  it  is  con¬ 
tinuously  interacting  with  that  medium.  By  requiring  that  the  effect  is 
small,  the  integrated  effect  can  be  approximated  by  a  finite  number  of  dis¬ 
crete  steps  in  the  following  manner: 

Assume  each  step  is  of  length  AL  and  that  the  effect  of  such  a  step  is 
approximated  by  a  vacuum  propagation  to  the  center  (AL/2) ,  application  of  the 
appropriate  transmission  function  t(x,y,I),  followed  by  subsequent  vacuum 
propagation  of  field  the  remaining  distance  (AL/2) . 

The  transmission  function  t(x,y,AL,T(x,y)  c*n  be  assumed  to  be  of  the  form 

t(x,y,I)  «  exp|-~  -iAij  [224) 

where  a  is  the  absorptivity  of  the  medium  and  A$  can  be  written 


Employing  the  usual  Gladstone-Dale  relationship  to  approximate  the  index 

RT 

n,  (n  *  1+pC)  and  the  equation  of  state  for  an  ideal  gas  (P  =  -^0)  ,  the 
expression  for  becomes  (assuming  constant  pressure) 


AO 


¥  m  r 


dz  5T  (x.y.t) 


(226) 


5T  represents  the  temperature  variation  across  the  beam  as  a  result  of 
one  of  the  four  types  of  thermal  blooming.  It  is  found  in  the  following  man¬ 
ner: 


(1)  Transverse  blooming  —  It  is  assumed  that  the  wind  is  blowing 
with  speed  (con/scan)  from  the  negative  x-direction.  The  resulting  temper¬ 
ature  variation  is: 


ST 


T 


I  (x',y,s)  dx 


(227) 


where  I  is  the  intensity  of  the  beam. 

(2)  Axial  blooming  —  It  is  assumed  that  the  wind  blows  in  the 
same  direction  the  beam  is  traveling  with  speed  V  (cm/sec)  resulting  in 


ST 


ax 


pc  V 


ax 


/ 


I  (x,y,:)d= 


(228) 


(3)  Free  convection  --  The  temperature  variation  due  to  thermal 
gradients  caused  by  absorption  is: 


(229) 


where 


P(Z')  being  the  total  power  in  the  beam  at  Z'  and  g,  the  acceleration  due  to 
gravity. 

(4)  Transient  —  Finally,  in  the  process  of  establishing  free 
convection,  the  beam  has  a  residence  time  T(-sec)  during  which  the  temperature 
variation  is 


5T 


tran 


*  I 


c .  Fortran 
Argument  List 


ALFA 

CP 

T 

RHO 


ZLEN 

NSTEPS 


INPT 

NPROP 

AXIAL 

DT 


-  Absorptivity  of  the  medium  Ccm 

-  Specific  heat  (J/g-K) 

-  Temperature  (K) 

-  (1)  if  RH0<1 ,  it  is  the  density  (g/cmJ)  used  for 
free  convection 

(2)  if  RH0>1 ,  it  is  the  transverse  velocity 

-  Total  length  of  the  blooming  medium 

-  The  number  of  steps  required  to  adequately  represent 
thermal  blooming  over  a  distance  ZLEN.  Phase  per  step 
shift  usually  kept  <_  g  /3 

-  Flag  for  intermediate  plots 

-  Same  as  NSTE  in  cavity 

-  Axial  velocity  (cm/sec)  and  is  >  0 

-  Residency  time  for  transient  blooming 


None  of  the  above  parameters  is  redefined  by  this  subroutine. 
Commons : 


C230) 


The  variables  in  common  which  are  modified  are: 

Cl)  CU:  the  effect  of  the  blooming  is  applied  to  CD 

(2)  C FIL:  due  to  its  equivalence  with  the  PH  and  W  arrays,  it  is  modi¬ 
fied  when  they  are  defined. 
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Computer  printouts  of  subroutine  TBLOOM  follow. 


SUBROUTINE  TBLOOM  76/l~6  0PT=1  FIN  4.6+4S2  04/27/79  12.23.47 


SubhootIne  TuLuoMULFA.Crt,  <  •  xMuaLtN.NSTtrts.  inpt .nxmoh .aaial.uti  ibloom 

LEVEL  2.  CU.CUM.a.rtM  IBLOOM 

common/helt/cu M64o«i  <cfilU6si2i  .auei h  •aL.NMTs.NMr.urtA.urtr  tblou m 

COMMON/aAV/aNOa.  NrtEG.NArt  In  (BLOOM 

DIMENSION  IBLOOM 

REAL  C0HU2T68I  I  BLOOM 

ME AC  ISA  r  TBLOOM 

CUMPLtA  CU.CFIL  (BLOOM 

equivalence  (Cuui  .  cutf<in  i bloom 

••••••••••••••«•••«  ••••«••••  •••••••••••••••••••••  (bloom 

This  vEHSION  OF  TbLUOM  H*i  BEEN  MOO  IF IEO  TO  I  BLOOM 

ACCOMOOATE  AAlAL  BLOOMING  CALCULATIONS  rtkrt  PHASE  TBLOOM 

TaU«THM££  rtrtUrtOSAL  U  FOrtGHAM  6/  IS  TBLOOM 

•••••••••••••••••A*  •••••••••  ••••••••••••»••••••••  TBLOOM 

This  rtOuTlNE  HAS  BEEN  FuMThEm  MOOIFIEU  (0  ACCOMOOATE  TrtANSItNI  Tb LOOM 

THCMMAL  BLOOMING  CALCULATIONS.  TrtANSItNI  TH.8L.  IS  THE  rtHASE  TBLOOM 

CHANGE  artiCH  hESuLIS  FrtOM  ENErtGY  AOOIIION  TO  THE  MEDIUM  [BLOOM 

■  I  Tm  NO  FOrtCEO  Ort  FrtEt  CUNvEdlUN  .  at  SOL  Vt  . .  TBLOOM 

rtHO  •  CP  •  OTEMrt/OTIME  «  ALrtHA  •  i(X.r.2>  TBLOOM 

AND  FINO  rtHASE  Change  Fhom  int  LlNEArtutU  l NOE*  CHANGt...  (BLOOM 

OELTA  N  *  ON/OTtMrt  •tlELTA  TEMrt  TBLOOM 

FurtGnAM  IB  /  IS  /It  TBLOOM 

TBLOOM 

•  •*•••  •••••••••••••«•••••  I  BLOOM 

EOUlVALENCE  (*(  I  I.CFIH  i  )l.(rtH<  i  I,CFIL<8193>1  I  BLOOM 

NST»NrtHOrt  (BLOOM 

May  TBLOOM 

I OUT  a  1  (BLOOM 

IF  (NMW0M.EU.3.0«.NMMUP.tU.5/  IOOT  a  U  TBLOOM 

IF  (NrtHOrt.EU.4l  NSTaB  TBLOOM 

Mrtl TE (6. SI  ALFA.Crt.T.  iLtN.NS I trtS  TBLOOM 

5  FOhMaT  (  119M0FIEL0  HAS  EN  TtHtU  SUBSYSTEM  I  BLOOM  -  STEAOY  STATE  THtrt  TBLOOM 

A MAC  BLOOMING  MEDIUM  /2  TBLOOM 

A5A.23HABSOMrtTlON  COEFFICIENT  a  .G12.S.5H  CM-1/2SA.  (BLOOM 

AIBhSPECIFIC  HEAT.Crt  »  .G12.S. ?H  J/GM-A/BSA.  (BLOOM 

AIAMTCMrtEHATUME  a  .GI2.5.TH  OtG.  K/23A.  TBLOOM 

A l 2H THICK NESS  a  .G12.S.3H  CM/23A,  (BLOOM 

A1SHN0.  ELEMENTS  «  .131  TBLOOM 

iFcor.GT.a.ui  go  to  too  (bloom 

C  ••••••••  UT  GMEATEH  I  HAN  g.y  INDICATES  THANS IENT  BLUMING  •**••••••  (BLOOM 

IF(AA(L  .GT.y.l  art I TE (6. 390T AAIAL  TBLOOM 

596  FUrtMAT (2SA.I8HAAIAL  VELOCITY  a  .GU.St  BH  CH/SEC  )  (BLOOM 

IFiaaial  .gt.  u.i  go  to  too  (bloom 

C  •*•••*•*  AAlAL  a  AAIAL  VELOCITY  I  BLOOM 

IF  (rtno  .LT.  1.1  artl It (6.61  hho  TBLOOM 

6  FUrtM A I ( 25 A « 1 OHOENS I T Y  a  .GI2.S.TM  GM/CM4I  TBLOOM 

IF  (MHO  .GT.  1.1  artlTEIft.TT  MHO  TBLOOM 

7  FORMAT (25A. 2 JMTHANSYEHSE  VELOCITY  a  .G12.5.7M  CM/SECT  (BLOOM 

700  DELE  •  ELEn/NSTEMS  (BLOOM 

GOC  a  .224  (BLOOM 

rtAU  a  1.  (BLOOM 

2LAST  ay.  (BLOOM 

2 NOB  ay.  TBLOOM 

AVELAG  ■  0.  (BLOOM 

HMS TUT  ■  0.  (BLOOM 

rtHTOT  «  0.  (BLOOM 

rtrttU  »  EAP («ALFA»OtL2/2.yi  TBLOOM 

C  •••  PROPAGATE  TO  FIRST  CLEMENT  TBLOOM 

C  IF  (  NrtrtOrt.GE.*  I  CALL  Lurtt (UEL2/2..0.MI  TBLOOM 

IF  (  NMMOM.gE.*  I  ( BLOOM 

1CALL  S T£rt l DEL 2/ 2. trtAU. . 1 . . 1 . NST *  u.y . y . . y . »M. J I  TBLOOM 

IF  (  NPrtOrt.cE. 4  >  TBLOOM 

1CALC  S TErt ! DEL 2/2. »h40» « 1 »  « . .nsT »  y t U »y . . y . |M( U I  TBLOOM 

00  lyO  Ka | »NS TErtS  TBLOOM 

KMIaK-I  [BLOOM 


2 

4 
« 

5 

6 
T 
B 
9 

10 

11 

12 

14 
1* 

15 

16 
IT 
IB 

19 

20 
21 
22 
23 
2A 

25 

26 

27 

28 

29 

30 
41 
32 
43 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 
S  7 

58 

59 

60 
61 
62 

63 

64 

65 

66 
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noonooooo 


•  ( 
■  I 

ia  pt 


PT  a 


OX  a  X<2>  *>111 
OASU  ■  0Aa»2 
OCAL  ■  NP rs»0* 
xFaCT  a  1. 

IF  INREG.tU.l  .OR.NREO.EQ.2)  AFACr 
COMPUTE  POatR  OtMSJTr 
noh»npts»npy 
PT  «  0. 

DO  1U  I* l >*OU 

I  I  >  Cui  t  >*C0NU<i(CU(  1  ))*AFaCT 
I  )  «  (CUM»2«t-n»«2  ♦  UJX(2«U«**>  *XF act 
PT»G<  l  ) 

PT»UXSO»*P IS/NPY 
IF (UT.GT.0.0)  00  TO  220 

C  •••  TEST  OT  TO  DETERMINE  IF  TRANSIENT  GLOOMING  HE0U1REU 
IF  (  AXIAL  .OT.  9.  >  00  10  10 

C  »»•  TEST  AXIAL  TO  0ETEHM1NE  IF  AXIAL  GLOOMING  IS  REGOIREO 
vr  a  MHO 
IF (MHO  .LT.  1.0) 

XVT  a  (980.66S«PT*ALFA/tMHO»CP#T) )*•(!. /3.) 

CAPK  a  6#28Jia5J«ALFA»OtL2*UCAL/(OL»CP»T*VT)»GOC 
IF(INPT.tU.O)  00  TO  IS 
if<mou(kmi,inpti .ne.oigo  ru  is 
kR1TE(6.14)K,PT,VT,CAPK 

14  FORMATTER!  FIELD  INCIDENT  UPON  THERMAL  dL DOMING  ELEMENT t 12. GH  POM 
1EM*  .G12.5.2JH  TRANSVERSE  VELOCITY  a  .012. S. 13HCM/S  CAPK  a  ,012 
1.3) 

N  a  u 
UMAX  a  0. 

CALL  OUTPUT (CU. NPY.NPTS. A. N.UMAA, . TMUt. . . FALSE. ..FALSE.) 

15  PMAX  a  -l.fc/ 

MA1ST2  a  25 

19  CONTINUE 

00  2a  Jal.NPY 
SUM  a  0. 

Jla(u-1)»NPTS 
00  20  lal.NPTS 
JJal.Jl 

SUM  a  SUM«m(  JJ) 

PH (  JJ)  a  CAPK«SUM/NPTS 

CU(  JJ)  ■  CUI  JJ)*CMPLA<CUS(PH<  JJD.SINIPHI  JJ)  )  )  4PMED 

20  IF(PH)  JJ) .GT.PHAA)PMAAaPH(  JJ) 

IF(INPT.EQ.U)  go  to  js 

IF (MOO ( KM 1 « I nPT ) .NE . 0 ) 00  TO  J3 
■MIT610.J4)  K .Pmaa 

34  F0MMAf(34Hl  FIELD  after  MODIFICATION  tfY  THEMMAL  GLOOMING  ELEMENT , I 
12.J2H  maximum  phase  SHIFT  INDUCED  WAS.G12.3.8M  MA01ANS) 

N  ■  0 
UMAX  at). 

CALL  OUTPUT (CU.NPY .NPTS .A .N. UMAX .. TRUE .. .FALSE . . .FALSE. > 
oo  ru  js 


THIS  SECTION  IS  DESIGNED  10  CALCULATE  PHASE  CHANGE  OF  THE  SEAM 
DUE  TO  AN  AXIAL  VELOCITY  COMPONENT.  THE  MATH  MEOUIWES  THE  SOLAN 
OF  THE  ENERGY  EUUATION  FOM  A  1 EMP  MlSE  PARALLEL  TO  THE  MEAN  AXIS. 

In  «mat  folloms.  capkax  is  a  o is t dm r ion  number  of  sorts,  ano 
the  PHASE  change  at  EACH  mesh  point  results  FROM  THE  PRODUCT 
OF  CAPKAX  •  INTENSITY  "M».  THE  FIELD  IS  MODIFIED  GY  THE  PHASE 
CHANGE  INOUCtU.ANO  THE  POmeR  LOST  TO  heating  the  MEDIUM  ••PREDm. 

18  CAPKAX  ■  6*283 1833* ALF A*GOC  / tRL*CP4AX 1 AL» 1*2.) 

2N0d  a  2N0M  *  DELZ 
IF  UNPT  .EO.  U  )  GO  TO  3U 
IF(MOO(KMI,INPT) .NE.U)GO  To  SU 
dMlTE(6.45)K.PT. AXIAL. CAPKAX 
aRlTE  (6.46)  2N0« 

45  FORMAT (46H1  FIELD  INCIDENT  UPON  THERMAL  GLOOMING  ELEMENT . 12 »8H  POG 
1ER*  . G12.S.23H  AXIAL  VELOCITY  ■  «G 1 2 • 3 • IShCm/S  CAPKKAxa  . 

2  G12.S) 

46  FORMAT (1UX.19MAX I AL  PUS I  I  ION  a  .G12.S.JH  CM) 

N  a  0 

UMAX  a  9. 


T GLOOM 

67 

T GLOOM 

68 

T  GLOOM 

69 

I GLOOM 

70 

1  GLOOM 

71 

T GLOOM 

72 

1  GLOOM 

73 

1 GLOOM 

74 

T GLOOM 

73 

T GLOOM 

76 

i GLOOM 

77 

IGLOOM 

78 

I  GLOOM 

79 

f GLOOM 

GO 

t GLOOM 

81 

T GLOOM 

82 

T GLOOM 

83 

Tgloom 

84 

f GLOOM 

8S 

TGLOOM 

86 

Tgloom 

87 

TGLOOM 

88 

TGLOOM 

89 

Tgloom 

90 

f 8L00M 

91 

TGLOOM 

92 

Tgloom 

93 

TGLOOM 

94 

'TGLOOM 

95 

T0LOOM 

96 

Tgloom 

97 

TGLOOM 

98 

Tgloom 

99 

TGLOOM 

100 

TGLOOM 

101 

tgloom 

102 

TGLOOM 

103 

TGLOOM 

104 

TGLOOM 

10S 

TGLOOM 

106 

t GLOOM 

107 

t BLOOM 

108 

[GLOOM 

109 

TGLOOM 

110 

Tgloom 

111 

TGLOOM 

112 

Tgloom 

113 

TGLOOM 

114 

Tgloom 

IIS 

T  GLOOM 

116 

1  GLOOM 

117 

tgloom 

118 

Tgloom 

119 

(GLOOM 

120 

i GLOOM 

121 

Tgloom 

122 

tgloom 

123 

i GLOOM 

124 

TGLOOM 

12b 

TGLOOM 

126 

) GLOOM 

127 

t GLOOM 

128 

1  GLOOM 

129 

TGI  OOM 

130 

tgloom 

131 

1  GLOOM 

132 

Tgloom 

133 

1  GLOOM 

134 

IGLOOM 

135 

TGLOOM 

136 

Tgloom 

137 

TGLOOM 

138 
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CALL  OUTPUT  (CU.NPY.NPTS.A,N.UMAA..rHOE...  FALSE,  .  .  FALSE,) 

1  BLOOM 

139 

(BLOOM 

1*0 

t  BLOOM 

141 

*0 

PHAAAA  *-!.£• 7 

T  BLOOM 

142 

EHAIST  a  5.0 

t BLOOM 

143 

PHBAR  a  O.o 

1  BLOOM 

144 

PHSQ  a  0.0 

t BLOOM 

145 

00  200  J  a  l.NHY 

T BLOOM 

146 

J1*(J-U*NPTS 

(BLOOM 

147 

00  200  I  a  l.NPTS 

T BLOOM 

148 

AHG  a  X ( I >  •  All)  *  A(J)*A1J) 

T BLOOM 

149 

OA1ST2  a  EaAIST  •  EaAIST 

r bloom 

ISO 

IF  (AHG  .0E.  HAIST2  1  AHG  a  0 . 0 

T8LOOM 

1S1 

PHGAUS  a  CAPKAA  •  <PT  /  3. 141S9I  •  ( I  ./*AIS  f2)  •(EAPU-ARG  •  2.)/ 

T BLOOM 

152 

*  aAl5T2>)  •  2.3ia(ZN0»a*2-  ZLAST**2) 

(BLOOM 

153 

KK  a  1  *  J1 

T BLOOM 

154 

PH  IKK)  a  CAPKAA  •  a (KK) • (ZNOM**2  -ZLASTa*2) 

TBCOUM 

155 

CU(KK)  a  CU (KK )  •  CMPLA (COS (PH (KK) ) «S1N(PH (KK 1 ) 1  •  HHCO 

(BLOOM 

156 

DELTA  a  PHGAuS  -  PH(KK) 

(BLOOM 

157 

PHBAR  a  PHBAR  *  PH(KK) 

(BLOOM 

158 

PHSO  ■  PHSU  *  PH (KK )  •  PH (KK ) 

t BLOOM 

159 

IF  (J  ..<£.  I  «  NPY/2  )  GO  TU  1S1 

(BLOOM 

160 

IF  (INPT  ,EU.  0  ) GO  TO  1790 

(BLOOM 

161 

aHITE  (G. ISO) A ( I ) .A (U> .PhgAUS .PH (KK ) .DELTA 

t  BLOOM 

162 

i7**a 

CONTINUE 

(BLOOM 

163 

160 

FORMAT  ISA. 5G12.S) 

1 BLOOM 

164 

101 

CONTINUE 

1  BLOOM 

165 

£00 

IF  (PH(KK)  .or.  PMAAAAI  PHaAAA  a  Ph(KK) 

TBLOOM 

166 

(BLOOM 

167 

HMSPHS  a  HMS  PHASE  OISTUHliON  FOR  UtLZ  STEP 

(BLOOM 

168 

AVELAG  a  AVERAGE  PHASE  LAG  FUH  THERMAL  BLOOMING  SEGMENT 

TBLOOM 

169 

PHrtAHl  a  AVERAGE  PHASE  LAG  f UH  OELZ  STEP 

(BLOOM 

170 

PmSTOT  a  TOTAL  HRS  PHASE  F UR  THERMAL  SLUOMInG  segment 

(BLOOM 

171 

PhTOT  a  TUTAL  MAAIHUM  PHASE  LAG  FOR  THERMAL  SLOOOHING  SEGMENT 

TBLOOM 

172 

IhE  ABOVE  SISTIST1CAL  PARAMETERS  ARE  InLLuOEO  AS  01 AGNUS 1  ICS 

TBLOOM 

173 

TBLOOM 

l  74 

RHSPmS  a  SURT(  PHSO  -  (  (  PHBARaa2) / INPY»NP1S> ) ) 

1  BLOOM 

l  75 

TOTPTS  »  NPT  •  NPIS 

TBLOOM 

I  76 

RHSPhS  a  hHSPhs  /  SUHTITDIPIS  ) 

TBLOOM 

177 

PHBARl  a  PHGAH  /  ( r.PY *NP T S ) 

1  BLOOM 

178 

AVELAG  a  AVELAG  ♦  PHBARl 

1  BLOOM 

179 

RHSTOT  »  SORT (RMS  TOT »*2  ♦  RHSPHsa»2) 

(BLOOM 

1B0 

PhTOT  a  PhTOT  ♦  PhaaAa 

(BLOOM 

1BI 

ZLAST  a  *NO» 

TBLOOM 

162 

IF  (lNPT  .ED.  0)  GU  TO  JS 

1  BLOOM 

1B3 

IFIMOOIKHl.INPTI .NE.OIGO  (u  JS 

TBLOOM 

184 

aHITE  (6,33)  K .PHAAAA . AA I AL 

f BLOOM 

185 

•RITE  (O.A9)  AVELAG. RRSTur.pHlOT 

TBLOOM 

186 

33 

format  ( 22H  l  F  IEL0  AFTER  AaIAL  TB.  U .  SHPHAAa  .G12.S*  AHVAAa  »Gl  2.5) 

TBLOOM 

187 

*9 

FuRMAT (SA.2AHT0TAL  AVERAGE  PRASE  LAG  .G12.S.18H  TOTAL  RMS  PHASE* 

.  t  BLOOM 

1B8 

AG12.S.26H  total  Phase  CHANGt  MAA.  a . g i 2 • S ( 

1  BLOOM 

1 B9 

•RITE  (6.44)  CAPKAA 

TBLOOM 

190 

44 

F OHM A f ( 1 0 A . i OM  CAPKAA  a  .GX2.S) 

(BLOOM 

191 

N  a  0 

1  BLOOM 

192 

UMAA  a  0. 

TBLOOM 

193 

call  output (cu.npy.npts.a.n.umaa.. true. * .false. ..false.) 

TBLOOM 

194 

GU  TO  35 

(BLOOM 

195 

# 

TBLOOM 

196 

TRANSIENT  THERMAL  3L00MING  CALCULATIONS ARE  00NE  IN  THIS  SECTION, 

TBLOOM 

197 

energy  Equation  is  solveu  for  phase  change  as  a  function  of 

(BLOOM 

198 

BE AH  ON  T I HE, 

(BLOOM 

199 

• 

TBLOOM 

200 

220 

ETa  *(ALFA  *  GOC  )  /  (  T  •  CP  ) 

TBLOOM 

201 

ZNUB  a  ZLAST  ♦  OElZ 

(BLOOM 

202 

IF  (1NPT  .£0.  0)  GO  TO  210 

TBLOOM 

203 

IFIMOOIKMI.INPT) .NE.OIGO  Tu  210 

t BLOOM 

204 

aHITE 16.279)  OT . ET A.OELZ • ZNUa . AF AC T .PHEO 

TBLOOM 

205 

2  79 

FORMAT  ( /  »  7H  or  a  .G12.S.7H  ETA  a  ,ui£. S.BH  OELZ  a  .G12.B./. 

TBLOOM 

206 

ASH  Z  •  .G12.S.1 OM  AFACT  a  .G12.S.9H  PMEO  a  .G12.S) 

TBLOOM 

207 

aPtTE  (6.278)  K 

TBLOOM 

208 

27tt 

FORMA T (S4MI  FIELO  INCIDENT  ON  TRANSIENT  1 HERMAL  BLOOMING  ELEMENT 

f BLOOM 

209 

A. 12) 

(BLOOM 

210 
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H  a  0 

TSLOOM 

411 

UMAX  ■  0.0 

t SLOOP 

412 

CAU.  OUTPUT  1CU.  NPY.NPTS.  A.  N«  UNA*,.  THuE...  FALSE...  FALSE..) 

( SLOOM 

413 

410 

NSMlIt  >  NPY  /  2. 

t SLOOP 

414 

ZLAST  a  ZnQm 

r sloom 

415 

POa£P  a  J , u 

1 SLOOM 

416 

FACTOM*  ETA  •  OT  •  OtLZ  •  6.4*31853  /  at  •  XF ACT 

r  BLOOM 

417 

00  300  L  a  1.  NPY 

T SLOOM 

41« 

J  a  NPTS#<L-1> 

TSLOOM 

419 

00  300  la  1.  NPTS 

i SLOOM 

220 

1J  a  1  *  J 

TSLOOM 

221 

c 

XlAY  a  CodJI  •  CONUlil  CU11J)  ) 

TSLOOM 

422 

XlAY  a  CUH(4»IJ-I)aa4  »  CUM ( 4*1 J) a«4 

fBLOOM 

423 

QPMl  a  FACTOM  •  XlAY 

t  SLOOM 

424 

c 

DPMI  a  (£T  A  •  or  •  061.4  •  6.4631033  /  all  •  XIXY 

TSLOOM 

425 

c 

CO(  IJ  )  a  cut  1J  )  •  CfcAP (  CNPLA  (O.a  QPHl)  )  a  PR£Q 

TSLOOM 

226 

CU(  IJ  )  a  Col  1J  )  •  CHPt-Al  COS  (OPHl)  .SINlUPMl)  j  a  PKCO 

TSLOOM 

227 

c 

3U0 

POw6M  a  POatM  •  CU(lj)aCONJl»tCU(lJ»  ) 

t  SLOOM 

428 

300 

POaCM  a  POatM  *  XIXY 

t  SLOOM 

229 

POaCM  a  POatM  •  OXSO  aNP(3/NPY  a*FACI 

TSLOOM 

430 

aHITt  16.493)  PT.POa 6M 

1  SLOOM 

431 

493 

FOMMAT t 10X.6M  Pt  ■  .014.3. 1UP  PUaEM  a  .014.3) 

TSLOOM 

434 

IF  (InPT  .60.  0  )  00  TO  33 

1 SLOOM 

433 

IF  (MUUlXMl  .InPT  )  .Nt.OHjO  To  33 

f SLOOM 

234 

aMITt  (6.461)  A 

TSLOOM 

435 

ZSl 

F0kMAI(*9H1  Fiet.0  AF 1  EM  IMANbitNT  TntMMAL  SLOOMlNti  StuM£NT  .14) 

1 SLOOM 

436 

UMAX  a  0. 

f SLOOM 

437 

Nag 

TSLOOM 

238 

CALL  OUTPUT  (CO. NPY. NPTS.A. N. UMAX. . TMUt . . .F ALSE . . . FALSE.) 

TSLOOM 

439 

430 

CONTINUE 

(SLOOM 

44U 

c 

35 

IF  (K.LT.NSTEPS)  CALL  CUMttUtLZ.tt.M) 

t  SLOOM 

441 

35 

IF  (A.LT.NSTEPS) 

TSLOOM 

242 

1CALL  STEP (OtLZ  .PAU..1..1.N3T.  0.0.0. .0. .M, 1 ) 

TSLOOM 

243 

c 

100 

IF  (K.EO.NSTtPS)  CALL  COMt (OCLZ/4. . IUUT .M) 

TSLOOM 

24* 

100 

IF  (P.E0.N3TEPS) 

TSLOOM 

245 

1CALL  STEP (OElZ/4 • .KAO. . 1 . . 1 .NST • lOu 1 .0.0..0..P.1) 

TSLOOM 

246 

METUMN 

t SLOOM 

247 

ENO 

TSLOOM 

448 

35.  SUBROUTINE  THERML 

a.  Purpose  --  Since  uncooled  mirror  glass  has  such  a  low  coefficient 
of  thermal  expansion,  the  mirTor  surface  heats  up  as  the  beam  hits  it,  thus 
heating  up  the  surrounding  boundary  layer  of  air.  Subroutine  THERML,  shown  in 
Figure  70,  models  the  phase  change  impressed  on  the  beam  due  to  thermal 
gradients  in  the  boundary  layer  of  air. 

b.  Relevant  formalism  --  The  theory  of  this  phenomenon  was  developed 
by  Humphreys  and  Wick  (Ref.  15)  of  AFWL. 


15.  Humphreys,  W.  W.  and  R.  V.  Wick,  "Change  in  Optical  Path  Length  Near  a 
Hot  Mirror  Surface,"  Laser  Digest,  AFWL-TR-7S-140,  1975,  p.  9. 


THERML.  36  -— 
THERML.  48 


THERML.  58  — 
THERML.  81 


THERML.  89  — 
THERML.  123 


Figure  70.  Subroutine  THERML  organization. 


Following  Humphreys  and  Wick,  assume  that  the  times  of  interest  are 
short  enough  to  consider  the  mirror  to  be  a  semi-infinite  slab.  From  the 
theory  of  heat  conduction  the  time  for  heat  to  traverse  a  length  L  is 
t  *  L^/ci.  Thus,  for  mirrors  of  thickness  L,  the  time  during  which  the  mirror 
acts  like  a  semi-infinite  slab  is  <<L*/a.  Assume  also  that  for  these  times 
one  can  neglect  natural  convective  cooling.  Therefore,  the  air  can  also  be 
modeled  as  a  semi-infinite  slab.  The  one-dimensional  heat  equation  is  then 
assumed  to  apply  for  both  the  mirror  and  the  air: 
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Common  variable  altered: 

CU  =  the  field  is  modified  by  the  boundary  layer 
temperature  gradients. 

Subroutines  called:  OUTPUT 

where  the  coordinates  are  seen  in  Figure  71. 


Figure  71.  One-dimension  heat  diagram  of  mirror  and  air. 


Initially,  both  the  air  and  the  mirror  are  at  the  same  temperature  T 


T  (x  0)  .  T  -  T  (X  0) 
mm  o  a  a 


(232) 


For  the  times  considered,  the  heat  does  not  have  time  to  diffuse  to  the  back 
boundary  of  either  the  mirror  or  the  air.  This  boundary  condition  can  be 
written 


T  (-,t) 

m 


T 


o 


Ta  (-,« 


(233) 


The  air  and  the  mirror  are  assumed  to  maintain  the  same  temperature  at  their 
joint  boundary  so 


T  (O.t)  *  T  (0,t) 

m  a 


(234) 


The  remaining  condition  to  be  applied  is  that  of  heat  balance  at  the  joint 
boundary.  By  Fourier's  law 


X  a  0 
m 


3  al 


C  235") 


where  a  is  the  absorptivity  of  the  mirror.  Similarly  using  Fourier's  law  at 
the  air  boundary 


^a  3x 

a  x  =0 
a 

By  combining  these  two  equations,  the  joint  heat  balance  equation  at  the 
boundary  becomes: 


ml  x  =  0 
m 


Since  both  the  media  obey  the  same  form  of  equation,  consider  the  solution 
of  the  following  equation: 


3~T  _  1  yr 
,2  a  3t 


Finding  the  Laplace  Transform  of  the  above  equation  gives 


=  i|-T  (x,o)  *  sT  (x,s)j 


where , 


T  (x,s) 


J  dti"stT(x,t 


Noting  that  T(x,0)  -  Tq  for  both  the  mirror  and  the  boundary  layer,  one  can 
rewrite  this  as 


4|T(x,s)  -  |  *(T(x,s)  -  ^ 


S  I  X 


261 


which  integrates  to  give 


T(x,s) 


A(s) 


B(s)e 


(241) 


The  boundary  condition  for  x  -*•  «  implies  that  A  =  0  for  both  media. 
Therefore 


T 

T(x,s)  -  -| 


B(s) 


x 


(242) 


To  proceed  further,  it  is  necessary  to  determine  B(s).  This  is  done  using  the 
joint  boundary  conditions.  Recall  that 


3T 


-k 


m 


m  3x 


m 


x  =0 
m 


3T 


m  ox 
a  a 


al 


x  *0 
a 


Assuming  (al)  to  be  constant  in  time,  this  transforms  to 


3T 

v  -S. 

IB 


m 


-k 


3T 

_ a 

a  3x_ 


x  *0 
m 


a 


al 

s 


(243) 


but 


3T  ,  , 

17 


x*0 


B(s 


x*0 


(244) 
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Therefore 


Recall  that  at  x  *  0,  T  (0,t)  =  T  (0,t).  This  implies  that  B  (s) 

m3.  f*i 

Therefore 


B 

a 


I 


The  equation  for  the  air  to 


T 

a 


s) 


be  back-transformed 


-s 


e 

s  s 


is  therefore 


'.'ote  that  T  (x  ,t)  obevs  a  similar  equation  with  the  a  and  the 
m  m 

interchanged.  Recall  the  following  Laplace  Transform  theorems: 


and 


(245) 

3  B  Cs) . 
a 

(246) 

(247) 

subscripts 

(248) 

(249) 
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1 


The  equation  for  T  (x  ,t)  is  therefore 

3,  3 


T  (X  ,t)  -T  *  r— 
a  a  o  km 


“I _  /* 

ka  y 


or 


a  /a 
m  a 


x 

7  4a  t' 


dte 


/  w  t  ' 


(250) 


lTa  Cxa’t:)  3  Ta  (xa’tJ  *  7o 
al 


-  x  /  4a  t 
a  a 


~  km  |  ka  2/  t  £ 

/r  /r  7 

m  a 


-  erfc 

✓  a 

a 


(251) 


The  phase  change  in  the  beam  induced  by  this  variation  in  temperature  is 
given  by 

4 /a  t 


A0  (x.y.I)  =  2[i*J  /  3  ^L)  ^Ta(dxa) 


a/ 


(252) 


The  factor  of  2  is  due  to  the  fact  that  the  beam  passes  through  the  boundary 
layer  twice.  The  limit  on  the  integral  is  seen  to  be  the  practical  point  at 
which  the  variation  in  temperature  becomes  negligible.  This  limit  is  impor¬ 
tant  to  estimate  since  the  integral  is  to  be  done  numerically. 

As  in  TBLOOM,  dn/dt  is  found  by  the  Gladstone-Dale  law 

N  3  1+  oC  (253) 


and  the  equation  of  state  of  a  perfect  gas 
MP 

0  *  m 


(254) 
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at  constant  pressure 


dn  -oC 

dt  =  T~  (255) 


It  is  assumed  that  the  effect  is  small  enough  that  the  integral  may  be 
approximated  by  a  finite  number  of  steps.  Four  steps  are  chosen  here. 

c.  Fortran 

Argument  List 

CONMIR  »  mirror  thermal  conductivity 
CONGAS  =  boundary  layer  thermal  conductivity 
ALPHAM  =  mirror  diffusivity 
ALPHAG  *  boundary  layer  diffusivity 
RHOGAS  =  boundary  layer  density 
REFMIR  =  mirror  reflectivity 
TAU  a  transient  time 
TIN  =  temperature 


SUBROUTINE  THERML  76/176  0PT==1  FIN  4.6+452  04/27/79  12.23.47 


SUBHOUTIN£  THtNML  (CUNMIH.ALHHAM,  ALFhAU.HHOOAS. TAu.  UN.MtFNlH. 

THtHHL 

i 

ICUNfiASI 

THtHHL 

3 

LEvEL  it  CU.CUH 

THfeXNL 

* 

CUNNON/MtLT/CUl 1BJB*>  .CF  1L<  16312)  'A  t  12BT  .BL.NHTS.NHY.UMA.UXY 

THtHHL 

* 

COHNON/HAT/aNOa.wHfco.MAHrN 

InfcHHL 

6 

WtAL  CUB  IM  TbB> 

tHtHNL 

T 

CUMHLtA  CU.CFIL 

fNEHNL 

a 

equivalence  (cumn.cuun 

THtHNL 

9 

c 

t*l.t/A«2A«THtNM2 

THtHNL 

10 

c 

THtHNL 

11 

c 

this  HoutiNt  calculate  the  effect  of  a  thermal  bounuahy 

THtHNL 

12 

c 

latex  in  fhont  of  a  mihkom.  j.  fonoham  s  / j i  /r» 

THtHNL 

13 

c 

THtHNL 

l* 

c 

THtHNL 

IS 

c 

THtHNL 

lb 

c 

This  TENSION  CALCULATES  MnASt  CHANOfc  BASCO  ON  the  OAS  TtMM. 

THtHNL 

IT 

c 

WISE  IN  FHONT  OF  THE  ACCOHOlNlj  TO  FOHOHAMOS  SOLUTION 

ihehnl 

ia 

c 

AS  OENEXATEO  FXOM  *  HEAT  (XANSFEX  t  BY  HOLMAN. 

tHtHNL 

19 

c 

tHtHNL 

20 

c 

THtHNL 

21 

c 

THtHNL 

22 

c 

FOXOHAM  S/Jl/TS 

IHEHNL 

23 

c 

THtHNL 

2% 
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*R  1  TE  (  b  t  5  I  ALPMAM.  COMM  l«  «  ALPHAS  , CONS AS  »  HMDS AS  *  T  AU  •  TI  N  t  HE  F  M  l  H  T  HEHML 

5  FORMAT  <  1 19M0F  IELO  MAS  ENTEktO  MIRROR  THERMAL  80UN0AHY  LAYER  ROUTIN  TMERML 
AC.  MEDIUM  CONOITIONS  /2  TMERML 

X5X. JOHMlHHOH  OIFFUSIVlTY  ■  .S12.S.UM  CMStt/SEC  /2SA.  TMEHML 

A30MMIHQOM  THERMAL  CUNOUC  F I V  i  I  Y  ■  .G12.5.UH  aATT/CM  SEC  /2SX.  TMERML 

X30H8OUNOARY  LAYER  OIFFUSIVlTY  «  .G12.5.1JH  CMSO/SEC  /25X.  tMERML 

X36H8UUN0ANY  LAYER  TMRML  CONDUCTIVITY  a  .ui2.btlJH  aA|T/CM  SEC  /2SX  TMERML 
X3UM80ON0AHY  LATCH  DENSITY  a  .G12.S. OH  GM/CC  /2SX.  T MtRML 

AiHnTHANSiENf  TIME  a  .G12.5.  TM  SEC  ./2SA,  TMERML 

AlAMTEMPEHATUHE  a  .G12.5.7H  DtG.  A  /25X.  TM£RML 

XlAHMlRBOR  n£F •  a  .G12.S)  tMERML 

C  •*•  COMPUTE  POWER  DENSITY  tMERML 

INPT  a  \  TMtRML 

IF  (MPTS. ST. 32)  INPT  a  0  iMERHL 

QA  a  A (2)  »A(l)  TMERML 

OXSQ  a  OA  •  OX  TMERML 

AFACT  a  l.  tMERML 

IFINHEG  .EU*  l.OH.MMES  .Evl.2)  AFACT  a  l./4N0«**2  TMtRML 

NOOaNPTS*NPY  TMERML 

PT  ■  II.  Tut  BMC 

DO  10  lal.NOd  tMERML 

C  10  PT  a  PT  ♦  CUT  I  )*CONU(i(CU(  1  ))*AFACf  TMERML 

10  PT  a  PT  ♦  (CUB (2*I“l )  **2  •  CUM(2*I)**2)  *  AFACT  TMtRML 

PT  a  PT»OASa»NP)S/NPY  TMERMI. 

WRITE (6. 1  A)  PT  TMtHMC 

U  FOMMaT (46m1  FIElD  INCIDENT  UPON  dOUNOAHY  LAYER  ELEMtNT »  7HPOWER  THtRML 
la.S12.9T  T MERHL 

IF ( InPT  .to.  0)  uO  To  IS  TmERML 

N  a  o  tMERML 

UMAX  a  0.  fMEHML 


CALL  OUTPUT (LU.NPY.NPTS.X.N. UMAX)  TMtRML 

C  ..................  ••••••••••  ..............  TMtRML 

IS  C JnT Ii.ut  TMERML 

c  •••  initialise  cunsiants  TMtRML 


C  •••  ALPHAS  TiitHMAL  UlFFUSIVlIY  OF  uAS  IN  dUY  LAYER  TMtRML 

C  •••  ALPMAM  THERMAL  OIFFUSIVlTY  OF  MIRROR  MATtRIAL  IMtHML 

PI  a  J.l*159  IMtMML 

SDC  a  .223  TMtRML 

CAMS  a  (l.  -  REFMIH)  I MtkML 

AN  a  (2.*  PD/WL  IMtHML 

NS  a  •  TMtRML 

NS 1  ■  NS  ♦  1  TMtRML 

DS  ■  I  *••  SORT (ALPHAS  •  IAU»  I /NS  TMtRML 

SALFA  a  SOHMALPHASI  TMtRML 

SALFM  a  90HT (ALPMAM I  TMtRML 

Cl  a  l./(4.*ALPMA(i*TAU)  TMtRML 

C2  ■  SORT (Cl)  TMtRML 

CJ  •  S.aSORK  TAO/Pl  )  IMtHML 

C4  a ( t ADS/COnM 1R ) *SOM T (P l * ALPMAM* T AU)  TMtRML 

dlSPMl  a  *100000.  TMtRML 

WM I TE (6*2192) SALFM.SALF A.CwNSAS.OS  »Ci .C2.C3.C*  IMtHML 

2102  FORMAT ( 10X.2JH  SALFM  SALFA  CUNSAS  US  . 4G12 .S .// . 10 A i 12MC 1  C2  C3  CA  TmEHML 
1  A012.S)  TMERML 

WRITE (6. 1002)  EA8S.WN  IMtHML 

1002  FORMAT ( 1  OX » 1*HM 1RROH  AdS  a  .S12.5.11H  KAYE  NO  a  .012. S)  TMEHML 

C  •••  F1N0  0»  /  OTCMP  •••  fMEHML 

ONOT  a  l-RHOSAS  /  TIN  )•  GuC  IMtHML 

WRl TE (6.100a)  ONOT  TMEHML 

100A  FOMMAT ( 1  OA  *  9H  ONOT  »  .S12.S)  TmEHML 

IF  (INPr.EO.O)QO  TO  10 1 A  TMtRML 

WHITE (6. 1005)  TMtRML 

1 0 1 A  CONTINUE  fMtHML 

100S  FORMAT < 10X.52H  X  Y  OPNIXY  tMERML 

X)  TMEHML 

c  FIND  LOCAL  TEMPERATURE  AND  MOUIFT  FIELD  BY  THERMAL  LENS  •••  TmERML 

10  a  u  TMERML 

00  AOO  K  a  l.NPY  TmEHML 

J  a  (A  *  1)  a  NPTS  TMERMi. 

YYa(K-l)  *  DX  »  UX/2.  TmERML 

00  AOO  I  a  1 . NPTS  TMEHML 

TUTN  a  0.0  TMERML 

IJ  a  I  .  J  TMERML 

XXa( 1*1 )  a  OX  *  OX/2.  tMERML 


25 

26 
2T 
28 
29 
JO 
31 
J2 
33 
3a 
JS 
36 
3f 

38 

39 
AO 
A1 
A2 
A3 
A4 
AS 
46 
AT 
A8 
A9 

50 

51 

52 

53 
9A 

55 

56 
ST 

58 

59 

60 
61 
62 

63 

64 

65 

66 
6  T 
68 
69 
TO 
T 1 

72 

73 
7A 

75 

76 

77 

78 

79 

80 
81 
82 
83 
8* 
ttS 
86 

87 

88 

89 

90 

91 

92 

93 
9A 

95 

96 

97 
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c 

XUY  a  CUIIJ)  •  CONuGtCUUul) 

TnERMC 

98 

Xl AY  a  CURl2«lJ-l)*«2  ♦  CUHl2«lJ)«a2 

r MtRML 

99 

00  325  MM  a  l,Hil 

fufeHMC 

100 

ZdCatMM  -  ll«02 

rut  om. 

101 

ARG1  a  -Cl  •  28L  •  2dL 

TMERML 

102 

ARG2  a  Cl  •  2BL 

t MtRML 

103 

F2  a  £RFC(  ARG2  ) 

t  rERml 

104 

0fc.LT  a  AlAY  *  C4  •  f  2 

INtHML 

105 

TOTN  a  TOTN  •  0£l7*ONOT»O2 

I MtRML 

106 

U> 

IV 

I/I 

ORHlAY  a— TOTN  •  *N  *3. 

1  MfcRML 

107 

c 

IF ( INRT  .£0.  0)  00  TO  330 

THERHL 

ioe 

IF (OPRl XY »L  T  .81GRM1 )  00  TO  3J0 

TmERML 

109 

BlGPHl  a  QRM1AY 

IMERML 

iio 

XlMAA  a  X1XY 

tMERNL 

111 

Mil  a  XX 

T  nerml 

112 

YMAA  a  TY 

TmCRMl 

113 

OElTMA  aO£L  T 

TmeRml 

116 

c 

FIMA  aFl 

TMERML 

115 

F2MA  af 2 

T  MfcRML 

116 

TOTNMX  a  TOTN 

( MfcRML 

117 

330 

CONTINUE 

TMERML 

na 

IFIInRT  .EU.  O.OR.NRTS  .01.32)  OO  10  398 

TMERML 

119 

•RlTt (6. 1006) XX. YY »UBm1 AY 

TMERML 

120 

1006 

FORMA  1 t 10X.3tlOX.G12.5) ) 

1 MtRML 

121 

C  395 

CU( IJ)  a  CU(lJ)  •  C£AR 1 CMRLX  to. »URHi A  Y ) ) 

TMt»ML 

122 

J95 

CUIIJ)  a  CUIIJ)  •  CMPLAI  CU81URMIAY)  .SlNtURMUY)  ) 

T MtRML 

123 

•  00 

CONTINUE 

TmERML 

124 

C 

IF ( lNRT.tU.0)  GO  10  38 

TMERML 

125 

■MITE  <6.2913)  dlGRMi .AIMAA.AMAA. YMAA.UELfMA.F 2MX. TOINMX 

T MtRML 

126 

*913 

FORMAT t 1UX.14M  0t'Hl<lMAA.A.Y.4Gl2.8»//<16M  OTEMR.f  l  .F2.0ELN  .3012.  1  MtRML 

127 

*6) 

1 MtRML 

128 

IFtINRT.tU.d)  GO  TO  35 

T MtRML 

129 

34 

F0MMAT161M1  F1EL0  AFTER  muuIFICATION  dY  T MtMMAL  dOUMUARY  LAYER  ELfc  T MfcRML 

130 

JMENT  ) 

T MtRML 

131 

N  a  0 

1 MtRML 

132 

UMAX  a  0. 

TMERML 

133 

CALL  OUTRUT  tCU.NRY .NRTS. A.N. UMAX) 

T MtRML 

134 

35 

RETURN 

TMERML 

135 

ENU 

TMERML 

136 

16.  SUBROUTINE  TILT 

a 

Purpose  —  Subroutine  TILT,  shown  in  Figure  72,  can  be 

used  to 

•emove 

beam  tilt  and  will  calculate  the  radius  of  curvature  of  a 

beam. 

b 

Relevant  formalism  —  To  remove  small  amounts  of  beam 

tilt,  the 

following  formalism  is  used.  Large  fixed  tilts,  such  as  result  from  mirrors 
set  at  an  angle  to  the  beam  axis,  are  removed  by  the  system  analyst  in  defin¬ 
ing  the  equivalent  collimated  system. 


Consider  an  input  field  U(x,y)  incident  on 
transmission  function  t(x,y)  yielding  an  output 


an  optical  element  with 
U  (x,y). 


(x,y)  -  t(x,y)  U(x,y) 
*  A  exp  (i<6) 


(256) 
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CYCLE  9.73  ♦CYCLE  9.1 18 


CYCLE  9.1 19  ♦CYCLE  9.142 


CYCLE  9. 143 -•'•CYCLE  9.170 


CYCLE  9.171  ♦CYCLE  9.203 


CYCLE  9.204  -•-CYCLE  9.223 


CYCLE  9.224 -♦■CYCLE  9.237 


Figure  72.  Subroutine  TILT  organisation. 
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For  removal  of  beam  tilt  from  a  field  U(x,y)  the  transmission 
function  must  be  of  the  form 

t-TILi  (*»y)  *  e-l(axx+ayy)  =  e*la'* 


(257) 


where  a  *  h0  and  A  =  h0  define  the  tilt  angles  to  be  removed, 
xx  y  y 

Similarly,  the  phase  curvature  is  removed  by  the  following  transmission 
function 


-i  | r  U2+y2) 

Sphere (x,y)  3  £ 

To  calculate  the  constants  a^  and  a^  for  an  arbitrary  field  distribution, 
U(x,v) ,  define  the  following  functional  to  be  minimized: 


(258) 


TILT 


■jjdxdy  |u(x,y)|2  |j($-ax  x-ayyj' 


or 


(259) 


ftilt  [fe  -  s)!  •  (!-*>■) 


the  resulting  expression  for  "a  is 

a  * 

where , 

> 


£ 

fee  'u 

! 

2- 

jJSl 

u  (x) 

i2 

(260) 


(261) 


7$  is  easily  found  from  the  field  data  by  noting  that 


1 

! 

1 


Once  the  tilt  is  removed,  a  similar  procedure  to  remove  phase  curvature 
is  used.  Recall  that  the  transmission  function  (x,y)  needed  is  of  the 

form 


tSPHERE  tx,y)  =  £ 


•ik 


m 


(263) 


The  new  functional  to  be  minimized  is 


SPHERE 


* J'J' dxdy  U(x,y)|2p^  -  b|x2  +  y2jjj 


(264) 


• » 


which  results  in 


b  -  <x  •  7j> 
<x  •  x> 


(265) 


Valves  of  tilt  a  and  sphere  b  are  found  by  an  iterative  procedure  until  the 
values  established  for  these  parameters  do  not  change  appreciably. 


c. 


Fortran 


Argument  List 


RADCUR 


*  Total  x  and  y  tilt  in  the  beam.  The  amount  of  tilt  removed 
from  the  beam  by  this  routine  is  added  to  these  parameters 
so  that  no  tilt  information  is  lost. 

=  the  negative  of  the  radius  of  curvature  of  the  beam  found 
by  this  routine.  To  produce  a  "flat"  beam  the  following 
calculation  would  be  performed. 


CU'CI.J)  =  CU(I,J)  *  exp  i(VXR)  (x“  *  y") 


(266) 


with  R  representing  RADCUR 
X  *  X(I)  and  Y  *  X(J) 
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O  UU'J 


IPS 


*  the  parameter  that  indicates  which  options  in  this  rou¬ 
tine  are  to  be  used.  IPS  is  the  same  parameter  as  UPS 
in  name  list  PROPGT  in  subroutine  GDL.  The  options  are: 

IPS  3  0  Tilt  is  not  called  for 

=  1  Tilt  only  is  removed 

=  2  Sphere  only  found 

=  3  Both  tilt  and  sphere  found, 
tilt  being  removed. 


Common  Variables  Altered 

CU  -  has  tilt  removed 

CFIL  -  starts  off  set  to  CU,  then  has  both  tilt  and  snhere  removed. 
Subroutine  TILT  computer  printouts  follow. 
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37.  SUBROUTINE  ERF 

a.  Purpose  --  The  function  ERF  generates  the  error  function 


erf (x) 


C267) 


273 


or  its  complement,  l-erf(x),  for  any  input  value  of  x.  This  subroutine  is  a 
copy  of  the  ERF  function  available  from  the  AFWL  scientific  program  library. 
Figure  73  shows  the  Subroutine  ERF  flow  chart. 
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Figure  73.  Subroutine  ERF  flow  chart. 


b.  Relevant  formalism  --  The  error  function  integral  is  approximated 
over  discrete  intervals  of  the  argument,  x,  by  Tchebickef  (Chebychev)  poly¬ 
nomials.  These  polynomials  are  evaluated  in  a  loop  which  combines  the  recur¬ 
rence  relations  for  generating  the  polynomials  and  a  running  summation  of  the 
terms  as  they  are  generated.  Coefficients  for  the  polynomials  are  provided  in 
a  data  statement  for  three  discrete  ranges  of  the  argument.  Argument  values 
outside  this  range  will  return  a  zero  (0) . 

Argument  List 

ANS  error  function  value  returned  to  calling  program 

KODE  flag  to  indicate  computation  of  erf(x)  or  l-erf(x) 

XX  error  function  argument 

Relevant  Variables 


A1 

A  2 
A3 


array  of  coefficients  used  in  the  polynomial  expansion 
over  the  range  |xx|  <_  2. 

coefficient  array  for  the  range  4.  <jxx|^  6. 
coefficient  array  for  the  range  2.  <|xx|<  4. 
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2S  CONTINUE 

LHOPI 

311 

ANS*Z*9l-«2»A2<ll/2. 

lhopi 

312 

ANSa(£XH»-A«»l / IX»HTP1> ) • ANS  * 

lhopi 

313 

SO  TO  IStT. 126*27*28,201 

lhopi 

314 

26  ANS»1 .-ANS 

lhopi 

319 

27  HETUHN 

LHOPI 

316 

29  ANS  a  -  1  •  *  ANS 

LHOPI 

317 

HE  TUHW 

LHOPI 

318 

30  CONTINUE 

LHOPI 

319 

IFIX.ST.2.)  31*40 

LHOPI 

320 

31  CUNTINUE 

LHOPI 

321 

ASS I SN  26  TO  I SET 

lhopi 

322 

3S  CONTINUE 

LHOPI 

323 

Z«X-3.  *  TZ  ■  z*z 

LHOPI 

324 

82*0* 

LHOPI 

325 

81*0. 

LHOPI 

326 

00  36  Jal.N3Ml 

LHOPI 

327 

A*N3-J*1 

LHOPI 

328 

TEMt»*bl 

LHOPI 

329 

81 *TZ*8 l“B2* A3 (K> 

lhopi 

330 

82*TE*P 

lhopi 

331 

36  CONTINUE 

LHOPI 

332 

ANS*Z«B 1-82* A3 ( l ) /2  * 

LHOPI 

333 

ANS*CAP  C«A*A>  *ANS/X 

lhopi 

334 

SO  TO  I SET* I 26*27*28*29) 

LHOPI 

335 

40  CONTINUE 

LHOPI 

336 

IF ( X.LT . “2. )  so  ro  so 

LHOPI 

337 

ASS I SN  2/  10  I SET 

lhopi 

336 

42  CONTINUE 

LHOPI 

339 

Z«x/2.  %  T 2«Z*2 

lhopi 

340 

82*0. 

lhopi 

341 

81*0. 

LHOPI 

342 

00  49  1*1*N1N1 

lhopi 

343 

J«Nl-l»l 

LHOPI 

344 

TEH**  *81 

LHOPI 

345 

aiaTZ*81-82«Al (0) 

LHOPI 

346 

82»TEHP 

LHOPI 

347 

45  continue 

LHOPI 

348 

ANSa(X/2.l*(Z*«l-82*Al (11/2.1 

LHOPI 

349 

SO  TO  ISET.<26*27*28*29> 

LHOPI 

390 

SO  CONTINUE 

LHOPI 

351 

IFIX.ST.**.)  51*60 

LHOPI 

352 

51  CONTINUE 

LHOPI 

353 

ASSISN  29  TO  I SET  6  A*-X  6  SO  TO  35 

LHOPI 

354 

60  CONTINUE 

LHOPI 

395 

x*«xx 

lhopi 

356 

ASSISN  29  TO  I SET 

LHOPI 

397 

SO  TO  61 

LHOPI 

396 
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200  CONTINUE 

IFU.OT.-6.1  go  ro  20s 

ANS»2.  *  NETUHN 

2Ub  IF (X.CT.XClHI  80  TO  210 
ANSaO*  S  MtrUHN 
210  CONTINUE 

IFCX.CT.*)  80  TO  216 
ASSISN  2/  TO  I  SET 
SO  TO  01 

21S  IFU.GT.2.1  80  TO  220 
IFtX.CT.-2.>  80  TO  225 

ASS  Ion  28  To  1st' 

SO  TO  *2 

220  ASS I ON  it  TO  I SET 
SO  TO  35 

22S  IF (X.8T «•*. )  80  TO  230 
ASSIGN  20  10  I SET 
X*“XX  S  80  ro  8i 

28  ANS«2.-ANS  »  hETOHn 

230  ASSIGN  20  ro  IStr  *  xa-x 
GO  TO  3S 
ENO 


CHOPl 

309 

CHOPl 

360 

CHOPl 

361 

CHOPl 

362 

CHOP  l 

363 

CHOP  I 

366 

CH0P1 

36S 

CHOP! 

366 

CH0P1 

36T 

CHOPl 

366 

CHOP  l 

369 

CHOPl 

3T0 

CHOPl 

3T1 

CHOPl 

Hi 

CHOPl 

3/3 

CHOPl 

3 /A 

CHOPl 

3TS 

CHOPl 

3/6 

CHOPl 

3/T 

CHOPl 

3/8 

CHOPl 

3/9 

CHOPl 

360 

CHOPl 

381 

CHUP1 

382 

CHOPl 

363 

CHOPl 

38* 

CHOP! 

38S 
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SECTION  IV 


USER  FAMILIARIZATION  PACKAGE 

The  following  section  contains  sample  input  to  run  the  SOQ  code  and  to 
logically  define  the  sequence  of  input  to  model  a  sample  resonator  or  optical 


i  the 

following  examples  are  included: 

1. 

Propagate  for  Users  Guide 

-  Camp 

2. 

Propagate  for  Users  Guide 

-  Vamp 

3. 

Quality  for  Users  Guide 

4. 

Design  of  a  Bare  Confocal 

Resonator 

S. 

Resonator  for  Users  Guide 

-  Bare 

6. 

Resonator  for  Users  Guide 

-  Loaded 

7. 

Sample  Code  Update 

1.  PROPAGATE  FOR  USERS  GUIDE  -  CAMP 


JWAPC*STMFX,P*00n.Tl  r/,fcCl.  PHUPAGAtt  FOP  nSEPSGUIDE  -  CAMP 
ACCOUNT  (  JP  ALT.  **«*****-*♦•  ,LPOtl  731  > 

GE  TP*-'  (OLOPL  .SOU  77l?a.  1 0**-*«*»*<* ) 

UPUATE  <F.w) 

FTN  <  I .LCMsT ,PL=200nO .L*0«A) 

PE TURN (OLOPL I 
COPYCP. INPUT. TAPES. 

REwInO. tapes. 

PFLFC  <4J0> 

LGO (PtsftOOOO) 

PFLFCU) 

♦EOR 

PROPAGATE  -  CAMP 

SST APT  WWL»0.OO10*>»  NCALL»2*  OCALstS..  NNPTS»12h» 

IH»d.  POPXaO.O.  HOHY*0.0.  AMPGE5»20.0»  OGAUSS*0.f>» 
PESTPTs. FALSE.  .  PLOTS»1.0»  INaS. 

SYMTWC*. FALSE.  .  PwlSAOaO.O.  SEMI) 

PROPAGATE  -  CAMP 
iCONTPL  I FL  Ow*4 .  SEND 

APEMTuPE  ThF  PLANE  WAVE  TO  10.  CM. 

SAP  TUP  Con  T* 1 0 •  .  0 1  “4*0  .  »  if  NO 

SCON  T  PL  IFlOWse,  SEND 

PLOT  THE  INITIAL  PLANE  WAVE 
SPLOT  SEND 

INITIAL  PLANE  WAVE 
iCONTPL  IPLOws3.  S£\0 

PPOPAGATF  THE  FIELD  *000  CM.  USING  CONSTANT  AhEA  m£Sh 
SPPQPGT  OF  LZ*A000  .  *  »OCOPV«0,.  »  IN()OX*0 . 1  .  WlNOO*»0.1f 
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TIFGal,  IIT*«0*  IlHSsO.  SENO 

SC0NT4L  IFLOws*,  SENO 

PLOT  PPOPaGATFD  FIELD 
iPLCT  $FNI' 

PROPAGATED  FIEI.O 
iCONTwL  I FLO^sQ «  SEND 
WETLPN  TO  *’A  IN 
JFTAPT  4*1  s-1..  $fNO 
•fcOB 
»EoF 


2.  PROPAGATE  FOR  USERS  GUIDE  -  VAMP 


100=JRAUG,STMFX.P60,T77,ECl.  PROPAGATEFORUSERSGUIDEVAMP,  ID*LREPPEF 
1 1 0*ACCOUNT  (JR  ALT, 0001 1 498- 1  EL.LRO,  1 467) 

120=ATTACH(OLDPL,SOO77l28,  ID=LROPJRA,  ST=ANY) 

1  130=UPDATE(F) 

140=FTN(I,LCM=I,PL=20000,L=0) 

1 50=RETURN(OLDPL) 

160=COPY,  INPUT,  TAPES. 

170=REWIND,  TAPES. 

180=RFLEC(430) 

1 90=LGO(  PL=60000) 

200=RFLEC(1 ) 

210=*EOR 
220=*  EOR 

230=  PROPAGATE  A  MIRRORED  PLANE  WAVE  A  DISTANCE  DEL2  -  VAMP 
240=  SSTART  WWL=0.00106,  NCALL=2,  DCAL=5.6,  NNPTS=128, 

250=  IB  =8,  DDRX=0.0,  DDRY=0.0,  AMPGES=20.0.  DGAUSS=0.0, 

260=  RESTRT=. FALSE.,  PLOTS=1.0,  IN=5, 

270=  SYMTRC=. FALSE.,  PHIRAD=0.0,  SEND 

280=  PROPAGATE  A  MIRRORED  PLANE  WAVE  A  DISTANCE  DELZ  -  VAMP 
290=  SCONTRL  IFLOW=2.  SEND 
300=  APPLY  A  MIRROR  TO  THE  PLANE  WAVE 
310=  SMIROR  DIAOUT=4.0,  DIAJN=0.0,  XMPOS=0.0.  YMPOS=  0  0 
320=  RADC=-400..  RMIR=1„  =SEND 
330=  SCONTRL  IFLOW=8,  SEND 
|  340=  PLOT  THE  MIRRORED  PLANE  WAVE  FIELD 
I  350=  SPLOT  SEND 

!  360=  INITIAL  MIRRORED  PLANE  WAVE  FIELD 
j  370=  SCONTRL  IFLOW«3,  SEND 

!  380=  PROPAGATE  THE  FIELD  200.  CM.  USING  VARIABLE  AREA  MESH 
i  390=  SPROPGT  DELZ=200..  ROCURV*0.,  WINDOX=0.1,  WINDOK=0.1, 

400=  IIFG«2,  IITR=1,  IIPS»0,  SEND 
410=  SCONTRL  IFLOW=8,  SENO 
420=  PLOT  PROPGATEO  FIELD 
430=  SPLOT  SENO 
440=  PROPAGATED  FIELD 
450=  SCONTRL  IFLOW=9,  SEND 
460=  RETURN  TO  MAIN  PROGRAM 
470=  SSTART  WWL=-1„  SEND 
480*'EOfl 
490=*EOF 
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QUALITY  FOR  USERS  GUIDE 


•juuLIIY  MJ*  JC.F.PS  b"IUt 
ACCOUNT  <  J«  ALT. PO  *1731) 

UK  TUf  (OlOHL  .SO(J  1  I  !)»*•*♦*•*  ) 

Uc.TPF  l  7APE«,iiSfc*S(i»Jinfc*ArttCu»  ID******-**) 

UPl)AT£  (F.W) 

FTM  I  »I.CM=I  »PLs<?DOOU»I.  =  0«A) 

**{•  TiPN(ULOPL) 

Cup ycp* input • Tapps. 

PEwlNU.TAPFb. 

PKLF.CU30) 

LbU(PL*600n0) 

PFL£C<  1  ) 

*EUP 

FIND  T h£  DUALITY  OF  fug  FIFlu 

SSTaST  wwl=O.OOIOA,  NCALL=2f  .)  C  A  L  *  1  3  »  7 14  *  NNPTS=1?«» 
Iriao.  OOPXsO.O*  OUPYaO.O»  APP(»FS*1.U.  DCADSSsC.O. 
PESTWTs  .TPUF..  PLOTS* i • 0  «  1N  =  5. 

SY^TPCs.FALSF. .  PhIPAOsu.O.  *F  ju 

find  tmf  duality  jf  rut  f  i t l r> 

SCO.JTWL  TFlOwsP,  «t'JO 
PLOT  t np  f  l Flu 
tPLOT  $e.MI) 

F'  I  tL?'  AT  INPUT 
K'ONTPL  IrlOwsD*  «FNU 

PFTDhn  to  nain  pdOoPam  kop  QU«LITy  C  At  CUI  A  T  I  On 
is  !  AP  I  'MCAt  L  =  i»  •  i)L  «j 

up  *  1  G  • 

1>  U  L  U  T  08*10.64.  I  S  A  V  s  0  ♦  I  'JL  T  *  0  «  1^hASc.  =  J»  1>F  ND 

l)P  ■=  1  (J  .  PA 

?>STAPT  WWL=“1  .  •  iFND 
«FJF 


4.  DESIGN  A  BARE  CONFOCAL  RESONATOR 


Assume  that  one  wishes  to  design  a  positive  branch,  unstable  bare 
resonator  with  a  collimated  output  beam  for  a  given  geometric  coupling 
0^,  length  L,  and  concave  mirror  size  (a^) .  To  solve  this  problem  design 
a  confocal  resonator  in  the  following  fashion: 

Geometric  Resonator  Design  (Fig.  74). 
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Define  the  following  parameters 


CCM 


Figure  74.  Geometric  resonator  design. 
Recall  the  definition  of  geometric  coupling. 


.  2  2 
c  a  AOUT  a  a2  '  J  1 
g  VoTAL  Ta? 


But  M  *  &2/'ai  *s  c^e  magnification  of  the  resonator,  thus 


Cg  =  Cg  3  1  -  — j 
M 


Or  inverting  this  expression,  one  finds 


M 


_ 1_ 

vHTc 


g 


C268) 


C269) 


C270) 


Given  the  magnification  and  length  of  the  resonator,  one  can  find  the  required 
mirror  radii  of  curvature,  since  for  an  aligned  confocal  resonator  both  the 
convex  and  concave  mirror  foci  are  coincident.  Figure  75  describes  this 
coincident  feature. 

1 


a.  The  focal  lengths  can  be  related  to  the  magnification  by  noting 


that 


tan  9 


therefore 


The  focal  lengths  are  then  found  to  be 


f  271) 


(272) 


f 


1 


L 

=  M-l 


and 


ML 

M-l 


(273) 


Since  the  radius  of  curvature  of  a  mirror  is  twice  its  focal  length,  the  two 
radii  of  curvature  are 


R 


1 


2  ML 
M-l 


(274) 


where  the  negative  sign  indicates  a  convex  mirror  and  the  positive,  a  con¬ 
cave.  For  example,  if  L  =  200  cm  and  =  0.75,  the  magnification  and  radii 
are  found  to  be 


M 


VO. 25 


=  7 


(275) 


-i 


-400  cm 


and  R . 


-(2) (-400)  *  800  cm 


(276) 


b.  Tube  Fresnel  number  --  The  tube  Fresnel  number  for  this  resonator 
can  be  found  by  the  fact  that  the  expanding  pass  propagation  distance  L  has 
an  equivalent  collimated  propagation  length  of  ML  so  the  round  trip  colli¬ 
mated  propagation  distance  is  (M  +  1)L.  The  tube  Fresnel  number  is  then 
(assuming  the  CVM  is  2.0  cm  in  radius  and  the  beam  has  a  wave  length  of  10.6 


NT  *  fM+l)U 


(2)' 


(3) (200) (10.6x10  ) 


=  6.29 


(277) 


c.  Computer  requirements 

(1)  Overlap  --  Since  the  beam  diffracts  during  propagation,  it  is 
necessary  to  have  a  large  enough  calculation  region  to  always  contain  the 
beam.  The  required  overlap  can  be  calculated  according  to  Sziklas  and 
Siegman  (Ref.  2)  as 


G  >  1  +  — l - 

2ir"NTe 


(278) 


where  e  is  the  tolerance  on  fractional  energy  loss  during  propagation.  Taking 
this  to  be  0.02,  one  find  the  guardband  to  be 


G  >  !♦  — - - - -  =  1.4 

27T(6.29)  (0.02) 


(279) 


Thus  the  initial  calculation  region  must  be  at  least  G  times  the  beam  size: 


DCALC  =  1.4  x  2x2  =  5.6  cm 


(280) 


(2)  Number  of  points  required  --  Sziklas  and  Siegman  also  show 
that  in  order  to  adequately  sample  the  beam,  the  number  of  points  in  each 
dimension  must  obey  the  following  inequality: 


Np  >  4G(G  +  1)  N? 


(281) 


This  becomes 

Np  >_  4(1.4)  (2.4)  (6.29)  =  8S 


(282) 


Standard  input  for  the  S0Q  deck  is  128  by  128  so  this  criterion  is  satisified. 


d.  S0Q  input  --  As  a  result  of  the  above  discussion,  the  parameters 
used  for  a  bare  resonator  test  case  could  be  the  following: 
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NPTS 


128 


DCAL  =  3.6  cm 

CVM:  RADC  =  -400  cm 

DIAOUT  =  4.0  cm 
DIAIN  =  0.0  cm 

DEL2  =  200.0  cm 

CCM:  RADC  *  800.0  cm 

DIAOUT  =  8.0  cm 
DIAIN  *  0.0  cm 


5.  RESONATOR  FOR  USERS  GUIDE  -  BARE 


JRAHw.STMEx.PAOnn.T 1 7/.EC1  .  HEBONATORFOnUSFRSGUIDEBARE 
ACCOUNT  (JR  ALT  ,»  »***«<»  •-<*«*  1731) 

REUUEST (TAPER. *PF) 

WEUUtST (TAPER. *PF) 

GE  TPE  (OLOPL  .SOQ7 71  2H.  I iis**«*»*«> 

UPUATE  (F .N.in.L,  *0) 

E  Tn(  I  *LCM*I  .PL  =  2Ofi(10.Ls0.A) 

“ETUWN(0LDPU 
COPYCR. INPUT. TAPES. 

PEwINO. TAPES. 

Gt  rPF ( peh.usfrsg*  •  ioeparecusm. ru3*******» 

GETPF ( P£9 .USFRSGU IOERAhECU. lDs«****«* > 

PFLEC ( A30) 

LOU  (PLs#>OOnoi 
RFi_EC  (  1 ) 

PURGE (WAPER.uSFuSGUinfcRAHECuSM, iu=**««**« .Lf= 1 ) 

PURGE  (WAPER.USERSGUIDEHARECU.  IU*****<>**»LC  =  1 ) 

CATALOG ( TAPEH.USFRSGUIOEBAHECUSM, I0*******» .RPsQPP) 

CATALOG  <  TAPER, USFRSGU 10FBARECU.  !()*•**••••  ,BPsog<5) 

*EOR 

*EOR 

SIMPLF  CONFOCAL  RARE  RESONATOR  -  M*2.  NTUBE*5.03 
SSTAPT  KV»L*0. 0010ft.  NCALL*2»  DCAL*6.0,  nnPTS*  128. 

13*8.  DORX*0 • 0 .  0 OPY»0.0.  AMPGE5*<?O.0»  DGAUSS*0.0» 
RESTRT*  .TRUE..  PLOTS»1.0.  IN*5. 

SYMTRC«, FALSE. .  PHIRAO*0.0.  SFNO 

SIMPLE  CONFOCAL  BARE  WESONATOH  -  M»2,  NTUBE«S.03 
SCONTRL  IFLOw*2.  SEND 
APPLY  CVM  MIRROR 

$M  IHOH  RAf)C*-2000.  ,  0  I  AOUT  *  A  .  0  »  OlAlN*O.G.  RM I  Rs  .  99  7  , 
DELTA*!). O.  ANGXA*0.0,  ANG  Y  Y*0 . 0  »  AMP0S*0.0.  YMpQS*0.0. 
DISTF*fl,n.  SEND 
SCONTRL  IFL0w*8.  *END 

PLOT  THE  CVM  FIELD 
SPLOT  send 

The  CVM  FTELO 
SCONTRL  IFLOR*3«  SEND 
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PROPAGATE  TH£  FIELD  TO  Ih£  CO  USING  VAmP 

sppopgt  neiz*inno..  wrNooxao.i.  *»inuok*o.i.  tip g»2 ,  iips»o, 

f I TP« I «  QOCUffValflOrt. »  i£NU 

scuntwl  mow*«.  *eno 

PLOT  ThF  FIELD  INCIDENT  ON  CO 
iPLUT  SEND 

FIELD  INCIDENT  ON  CO 
JCONTPL  IFL0*«2*  SfNO 
APPLY  CCM 

SMIPOP  PADC=*OrtO.«  U I AOU T »fl ,  ,  *£NO 

SCGNTPL  IFLOWafl,  SEND 
PLOT  THE  CO  FIELD 
iPLuT  SEND 

FIELD  aFTEO  ON  CO 
SCOnTpl  1FL0w»3»  »£NO 

PPOPAGATE  THE  FIELD  SACK.  TO  Th£  CV*  USING  CONSTANT  APE  A  m£SH 
JPWUPGT  DfcLZslOOO..  WlNUUXsO.l,  wINf)OK*0.1«  IIFG»1»  Z  Ip»S»0 # 

1 1  TW=0  »  POCUWV*0,0.  SEND 
tCONTRL  lFLOwsft.  if NO 

FIELD  CUTOUT  AND  INTEPPOLA  T  iON  FOP  Trl£  NEXT  PASS 
SCUTOUT  0  I  PE  AMs4 «  0  «  QVPLAPs 1,6,  DxxPaO.,  OYYPaO.t  MAxIT*3. 

AVCUSMaO.O.  SEND 
SCONTPL  IFLOw=D.  SEND 

°L 0 T  Tn£  FIELD  iNCIUtNT  ON  CVM 
sPLOT  SFND 

field  incident  on  cvm 
SCONTPL  I FLOwa  7 «  SE NO 
CONVEPGENfE  TEST 
SCONTPL  IFLOWSQ.  FEND 

PETUPN  Tn  MAIN  PPOGHAM 
SSTAPT  WWL3-1..  SENO 
*EOP 
*EUF 

' .  RESONATOR  FOR  USERS  GUIDE  -  LOADED 

UP  ALH  *  S IMF X,P4  0nn«T177»tCI«  PESONA  rOWFOKUSEPSGUlDELOADE D 

ACCOUNT ( ok ALT. **<>**»**-»** fLPO* 1731) 

PEGUEST < TAP£fl,»PF) 

°EGUfcST ( TAP&P.«PF) 

PEOUFST ( TAP£1 1  ,*PF) 

PEUUEST ( TAPE  12»»PF ) 

PEOUEST(TAPF13«*PF) 

GErPF(OLDFL»SOo77l28.ina*******! 

UPDATE(F,N,w.L *0) 

FTN( I «LCM«I ,PLs2fl0n0.L»0«A) 

PETUHN(OLDPL) 

COPYCH* INPUT, TAPES. 

PfcwINQ*  T  APFS. 


GETPF (TAPEF.USEBSGUlOfcLOAOEUCUSM, ro»*******l 
GETPF (TAPES, uSFHSGUIDfcLOADtDCU, ID=*«**«**) 


GETPF  (TAPE1  1  .USESSGUTDELOAUEDCGl  1  ,11)  a  *•*«***) 
GETPF ( T  APE  1 2 ,USF°SGU  TQELOAOtDCOl 2*1  ()■*••••**) 
GETPF ( TAPE 13.USEPSGUTOELOAUEDCol3»IU*****#**l 
GETPF (TAPE31 .OPD1 1311 41P I bStCCONTXY.IDa*******) 
PFtEC (4J0) 

LGO(PL«AOO<IO) 

PFLEC ( 1 1 


285 


1 


°UHGE  (WAPEfl#US£rtSGUinei.04ueUCUSM.I0a*******.LC*l ) 

PURGE  ( WAPE9 .uSERSGi IIDELOADEDCU.I i)»* *Lf *  1  ) 

PURGE  (WAPEl  1  .USERSGUIUELOAULOCGI 1  ♦  I(js<*****<*«  ,LC*1> 

PURGE  (WAPE12.USEWSGUT0EL0A0EDCG12.  lL)=-»***<K»o.|_C»n 
PURGE  ( VAPE 1  3 .USEPSGUf UELOAUEDCgI J  •  TDa*<nn*<n»*  .LC  =  1  ) 
CATALOG  (  TAPE K.USERSGlJinELOADEUCUSM,  [d3**<k***<» ,PP«QGP ) 
CATALOG ( TAPfcQ.USE^SGUIOELOAOEDCU. IDa***«**«t»Paq9P) 
CATALOGdAPEl  1  .USERSOUI DELUAOEUCGl  1  .  1  l)s**-»*««*  ,PPs999 ) 
CATALOG ( TAPE IP.uSERSGU IDELOAUEDCG1 2 ♦ ID3*<n»***«,PPa999) 
CATALOG  (  TAPE  1  3.USFRSGUinELOAOEOCG13 •  IDa*******.BPs999) 
*EUP 
*EOR 

SIMPLE  CONFOCAL  LOAOEO  I*E3uNATOR  -  Ma?,  NTURE»5.03 


SSTART  MWLaO  *00 106*  NCALL*2»  0CAL*6.4»  NNPTS»i28. 

18=8.  OOWXafl • 0  •  unWYafl . 0  *  AmPGES»20.0»  DGAUSS»0.0» 

PESTPTa  .TRUE  * •  PLOTSal.O.  INa5. 

SYMT»C». FALSE. t  PHlWAOaO.O.  SfcNO 

SIMPLE  CONFOCAL  lOAOEO  RESONATOR  -  Ma?,  NTUBE«S.03 
SCONTRL  I Ft  0Wa2  *  *ENO 
APPLY  CVM  MIRROR 

SMIROP  MAOCa-2000..  0  I AOU  T  a4 . 0  «  OlAlNaO.O.  RMI»a.997* 
OELTAaO.O.  ANGXXan.O.  AN(jY  YrO  •  0  •  XMPOS*0.0.  YMP03*0.0» 
OISTFr2.E-7,  SEND 
SCONTRL  IFLOWra.  SFNO 

PLOT  Th£  CVM  FIELD 
SPLOT  SENO 

THE  CVM  FIELD 
SCONTRL  IFLOwa.1,  SEND 

PROPAGATE  THE  FIEI.O  TO  THE  CAVITY  USING  VAMP 
SPRQPGT  DEL7=1 Oft  •  »  *lNOOX*0.l»  MlNUOKaO.l,  I lFGa2*  IIRS*0, 
I  I  TRsO  »  ROCURValOftO. .  SENO 
SCONTRL  IFLOwsl,  SENO 


APPLY  GOL  CAVITY 

SCAVTY1  NC A VNOa l *  NSTF=4,  ILR*  l  •  NPLTaft. 
ZPROPQa  1  SO  «  »  SEnO 

SCAVTY2  XLENs24.  J2.  YLENsU  .<*,  ZLENa7S0.» 

NOOXa 1 90  <  NOO Ya90 »  N0StG*3* 

NGTYPEaO.  NGPLOTaO,  IPUEN»Ot 

T 1 *39  I  •?  «  T2a395.2.  T3*  I 284 ♦ 

TSa3I3..  PSa.0422,  VairiJBO.. 


?PROP 1=0 . . 

XMCAV=6. . 

FL AGa 1 1 . » 
IUSFa-1 , 

TN2*1 33J.s» 

PHRCHa 1 8 . » 


YMCAVaO.  . 
MRESTaO.  ♦ 


XN2a.81Al.  XC02=.1388* 

AVGA  IN* . 3 •  SENO 

USERS  GUIDE  LOAOEu 
SCONTRL  IFL0Wa2,  SENO 
APPLY  CCM 

SMIROR  RAOCaAOOfl..  0IA0UT*8.» 

SCONTRL  IFLOwart.  SENO 
PLOT  ThF  CCM  FIFLO 
SPLOT  SENO 

FIELD  AFTER  CCM 
SCONTRL  I  FI  OV**  1  .  SEND 
PROPAGATE  The  FIELD  RACK  THROUGH  ThE  CAvlTY  USING  CONSTANT  AREA  MESH 
SCAVTY1  NCAVNOal.  NSTFa I «  ILR*-1.  NPlT*G.  /PROPIalSO.. 

7PR0P0*! on. .  SENO 
SCONTRL  IFLOKsA,  XEnO 

field  Cutout  ano  interpolation  for  the  next  pass 

SCUTOUT  D  I RF  AMa<*  ,  P  «  UVRLAPal.6,  DXXW30.»  OYYRaO..  MAX  I  T*  J  ♦ 

AVCUSM3-],,  SEND 


XH203.uIag»  XC0=.0044»  X02s .0241 * 
RESONATOR 

SENO 
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SCONTOL  IFi_0#*S.  *FNO 

BLUT  ThE  MELD  INCIDENT  ON  CVM 
4PLOT  4FN0 

FIELD  INCIDENT  ON  CVM 
SCONTRL  IFlOks7.  SEND 
CONVERGENCE  TEST 
4CONTBL  IFl.Ov.sR.  SFNO 

return  ro  main  program 
i^TAHT  MWLs-1..  *E''U 
»£OR 
»EuF 


7.  SAMPLE  CODE  UPDATE 

The  following  file  is  included  to  illustrate  the  set  of  updates  which 
would  be  included  to  add  a  subroutine  to  the  existing  SOO  group  of  subrou¬ 
tines  .  The  updates  are  comprehensive  in  that  they  illustrate  common  modifi¬ 
cations  and  include  a  namelist  and  subroutine  within  the  beam  quality  calcu¬ 
lation  division  of  the  SOQ  code. 


jpA/R«srMFX,p*oori,  n //.tci .  add  ZfcRNi*t  removal  to  sou 
account  ( JR  ALT  »•••<**<►«<*-*•♦  *L»0«  1  711  I 
GETPF  (OLDPL  .S00  7712A.  H)s«**<***» ) 

UPOATE(F.W) 

FTN( I tLCM«I ,PL*2n000.L*0«A) 

RETUHN(OLDPL) 

COPYCR. INPUT, TARES. 

P£w  INO  «  TAPf  ^  , 

RFLEC ( A30) 

LGO(PL*600nn) 

RFLCC  < l ) 

*EOB 

•ID  2MM I*E 
*1  ODL.261 

IZE»N  «  o 
*1  GOL.31S 

IZERN  «  0 
•1  S0077CY1.165 

C  *23  APPLY  UP  TO  2A  ZEBNIKES  IN  UNITS  OF  WAVES.  READS  ZERNS 

•I  GUL.29 

LOGICAL  FRINGE 
•0  G0L.295.SO077CY1 .167 
C  / 16  /IT  /lA  /IB  /20  /21  /22  /23  / 

X. 160. 170.1 AO .190. 200 *210 *365. 230) . IFLPW 
•0  GDl  .  32S  .SOU7  7C  Y  1.168 
C  / 16  / 1 7  /lA  / 1 9  /20  /2 1  /22  /2J  / 

X. 160. 170. I AO. 190. 200. 2 10. 365. 230) . I  FLO* 

•1  GDL. 327 

.  .  . . . . . . . 

C  APPLY  7ERNME 

c. . . . . . 

230  IZERN  >  I/EHN  *  1 

IF  ( . NO T . I N I T )  GO  TO  2 AA 
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FRINGE  a  .FALSF. 

00  248  1*1.24 

248  P(I)  so. 

00  249  1=1.35 

249  PFRNG ( I )  s  n. 

9EA0  (S.ZERNS) 

00  239  1*1.35 

239  IF ( PFRNG  <  I ) .NE.O.)  Fh  INGE*. T . 

IF  (  .NOT. FRINGE)  GO  TO  241 
WWITF (8.245) 

245  FORMAT l/SX.*FRINGE  COEFFICIENTS  BEING  CONVERTED  TO  SOD  ORDER.*/) 
P<1)  *  0. 

P (2)  s  PFRNG(l) 

P ( 3 )  s  PFHNG (2) 

P<4)  a  PFRNG ( 3 ) 

PIS)  a  PFRNG (4 ) 

P (6)  a  PFRNG (5) 

P ( 7)  a  PFRNG (6) 

P ( 8 )  a  PFRNG ( 7) 

'  P<9)  s  PFRNG (9  I 
P ( 1 0 )  a  PFPNG(IO) 

PU1)  a  PFRNG  (8) 

P ( 1 2 )  a  PFRNG (11) 

P ( l 3 )  a  PFRNG (12) 

P(l4)  a  PFRNG (16) 

P ( 1 5 )  a  PFRNG (17) 

P ( 1 6 )  a  PFRNG (13) 

P ( 1 7 )  a  PFRNG (14) 

P ( ia )  a  PFRNG (18) 

P( 19)  a  PFPNG< 19) 

P(20)  a  PFRNG ( 25 ) 

P (21 )  a  PFRNG ( 26 ) 

P (22)  a  PFRNG (15) 

P ( 23 )  a  PFRNG ( 24 ) 

P(24)  a  PFRNG (35) 

IFRTST  a  0 
00  24*,  Ka20. 23 

2 46  IF (PFRNG (8) .NE.O. )  IFRTST  a  \ 

00  243  Ka27.34 

243  IF(PFRNG(K)  .NE.O.)  If-RTST  a  1 

ifufmtst.fo.d  write (6.24 n 

247  FORMAT (/5X.*RARNING  -  FRINGE  COEFFICIENTS  OF  ORuER  2 0  THROUGH  ?3*. 
C  *  AND  27  THROUGH  34  ARE  IGNORED*/) 

241  DO  24g  T a  1 .24 

242  P/SAVEU.IZERN)  a  P  ( I ) 

PZSAVE (25* IZEWN)  a  RO 

2 44  CALL  ZFPN (PZSAVE (25* iZEHNJ .P75AVE ( I . I/FRN) ) 

IGNAL  a  1 

GO  TO  999 
*0  GOL .27 

DIMENSION  IPlTS(SO) .PZSAVE (?5, 10) .p(24) .PFRNG(35) 

•I  GOL. 33 

DATA  P.PFRNG/24*0. .35*0./  .  RO  /  5.  / 

*1  GOL. 243 

namelist  //erns/  ro.p.pfrng 
RO  a  RADIUS  OVER  WHICH  ZER.MlKES  ARE  VALID. 
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P  a  APWA Y  ZERNlKE  COEFFICIENTS. 

PFRNG  *  AMO  AY  FRINGE  ZEHNIKE  COEFFICIENTS  (CONVERTED  TO  P  IN  GPL). 
I  L»OP1.3fl5 

SUHROUTINE  ZFMN ( MO  « P ) 

LEVEL  P.CUP 

COMMON  /MELT/  CUR  <32768) . CF IL ( l &5 1 2 )  *  X  < 1 2« )  , wL .uPTS .MP Y .OMXiORY 
COMPLEX  cf  il 
DIMENSION  P(24) 

I FtRO.FO.O.)  GO  TO  70 
DO  100  I Y  a  1 « NM Y 
J1  a  <IY-1)*NPTS 
YSQ  a  X(IY)»*2 
00  100  rxal.NPTS 
XSO  a  X(IX>**2 
INOX  a  IX  .  J1 
R  a  SuPT !XSO*TSQ) 

52  ThFT  a  ATAN2(X(IY) .X<1X) J 
R  a  AM INI (R/RQ.l.) 

CT  a  COS<TMET) 

C2T  s  CUS<2.<*Th£T) 

C3T  a  COS(3.*TMtT) 

CaT  a  COS(A.«ThET) 

C5T  a  COStS. *THET) 

*  ’  I  ''♦►LI.  rtUW  WF*«UVAL  (0  1'liJ 

AC Ci. ’OUT  1  t  i 

<»C  TPF 

jPijAlPfF.ai 

F  I .st  f  I  .LC^=  I  .Pt.  tdflOOU  .L  *<>  .«) 

wfc  T(iW(V(tOL0PL> 

CUPVCM. INPUT , TAPES. 

“'Ll.  t no •  tapfs, 

“O-'Lf-C  (4  JO) 
l.GU  (PL  *600oitt 
■JFLEC  1 1  ) 

OR 

Mu  ZMNtKf. 

°I  gli./si 

!Z?PM  a  0 
*1  GDL.315 

1/fcPN  5  0 

»I  SUwTTCYl.ihU 

C  a  /J  APPLY  UP  ru  24  ZEP.IJKEs  >N  UNITS  OF  *AVFS.  MEATS  ZFPNS 

•I  GUI.  29 

LOG  1C  A(  FMfNUE 
•0  GUL.295.Snw7/rrl . 167 

C  / 16  /  l  7  /lA  / 1  9  /?.0  /  d  1  /22  /23  / 

X. ISO. 170,1 A0« 190. 200. 2 10. 365. 2 30) * IKLOW 
*f>  GUl.  )2S.Snw7  7r»l  .168 

C  / 1 6  /IT  /1h  /19  /20  / 2 1  /  22  /23  / 

X  .  ISO  ,  1  TO  .  180 . 1  'JO  .200 .21  0 . 365, 2  JO  )  ,  li-LO* 

»i  GOL.327 

. . . . . . 

C  Apply  /fwntkE 


270  t/F»*'  *  1/fcWN  .  1 

IF  (  f  .  INI  T|  <jO  TO  2*4 
FMINOt  *  .FALSF. 

Dii  24M  1*1,24 
246  P<  I)  *  ,i. 
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no  ?4S  i*i  .is 

■<<*H  PFONG  (1)  *  .1 . 

OfcAO  (G.2F_0.\)S) 

00  23o  1  =  1.  is 

2  3<5  IF  (PFoM-t  r  )  .\fc.0.  1  F«[^,t*,r. 

I F  (  . Mu T  .  F  W  [  r.Gfc  »  C,n  Tj  >0.1 
VO  I  TF  lb  ,24S  I 

2AS  FOSHA  f  ( /S*  .  »F0  INGE  COfc.?F  IC  IfcNTb  Ht  I  No  C('NV£ofFn  To  bOO  OBOES.*/) 


0(1) 

= 

p. 

0(2) 

3 

OFMVIS  ;  1  ) 

o<3) 

3 

0Fw*j(i(2) 

P  (4) 

3 

OFkN(i(  J) 

j  (S) 

3 

PFONC,  (  4  ) 

P(n> 

* 

OF  OWfi  (  -5  ) 

2(7) 

3 

OF  <N<j(U) 

0(4) 

3 

OF  Wl.'o  (  1 ) 

*  P(<») 

3 

OF'kNG  t  -V) 

P(  10)  a  PFWNG(lU) 

3(11)  a  OFHNGIA) 

p  (  12)  *  oFsng  (11) 

0(13)  =  I’FonG  (12) 

P  (  1  4  )  s  0PU7(»(lh) 

P ( 1 5 )  *  OF PNG (17) 

P(1M  a  OF  UNO  (  t  3  ) 

P(l/1  a  PFP\iGll4> 

P  (  1  Fi )  a  OFJNGi 1H> 

0(10)  a  oF  Jf.r, ( 1 V) 

0(20)  a  OFar.GtPS) 

0(21)  *  0F0f)G(2ft) 

P  (22)  a  Of  own  (  )  *■  ) 

0(23)  *  ofon(.  (24) 

P(24)  a  WFM'4“(Vs) 

TForsr  *  o 

no  ?bh>  xa2o.23 

2*S  tF  (FFHWSIK)  .Nt.O.  )  IFWTbT  S  1 

no  24i  Cf  ?,  i4 

2*3  I F  (  OPwFiG  (  <  )  .Nfc  •  0  •  >  IFoTST  a  l 

IF  (  IFoTGT.F'1.1  )  »oiTfc(Sf2*n 

247  FOWMAT  !/s*,*-aoNlNG  -  FOI^OF  COKFF  IC  t  FN  T  b  OF  HOytO  20  TMWjllyo  23* 

C  •  AN(!  2/  r«WU"Gi  34  AWfc  iGNOOfeO*/) 

241  00  242  (*1.24 

242  P2SAVF  (  I  .i/FON)  a  0(1) 

02SAVF  !2S.  I/FoN)  *  Pu 

24*  CALL  2FON(P/SA7E  (2S.12F.WN)  .P7bAVt  t  1  »I/FBU)  ) 

IGNAL  a  1 
On  to  ooq 
•0  OOL.27 

DIMENSION  IPLTS (SP) .P2SAVfc (?S» 1") *2 (24)  .WFHK0I35) 

•I  C.OL.  13 

OATA  o,Pf*i\jg/2*»0.  »3S’*n./  .  00  /  b.  / 

•I  r.OL.243 

NA*El  J«T  Z/fONS/  O0.W.OFON., 

P()  a  kAftUS  OVFO  VHlCo  2kWNlKtS  ASF  VALID, 
p  a  AOWAY  /FWN1KF  CUtFFICIENTb. 

PFONC,  *  AWOAT  Fkinoe  2f  WNJ<F  COLF F  I L I FNTS  (roNVtPlFn  Ty  0  IN  GPL) 
I  l.  o<)P  1 .  3 As 

SuhwOo t I 'iF  7FW7(kn.oi 
LFVEt  2. CIO 


rn*4Mm>.  /*.».  L  r /  (  1  «CF  lu  i  los  i? )  « %  1 1  2ft )  , *t_ ,.<pts«mpv  «('wx»i>ry 

Complex  ;ml 
r>t*e*isr,>N  p tp+) 

TFfBf’.K'j..).'  un  Tn  /J 

00  lnU  [Vsl.NPV 
J1  a  (  T  r-1  J  -MPT., 

VSO  a  *  i  !  r  i 

O')  !'»'•,  r  ns)  ,f  PTb 

*SO  * 

I'lOX  a  (X  .  j  1 

p  =  Si<u  r  •  *g>j*  rS(j ! 

S2  T «f  T  =  i  T  a-i/  !  x  ( I  y )  t  x  ( 1  x  )  j 
P  a  A  N.  r  •  i  <  iB/OQ,  1  .  ) 

C  T  a  i;>»s  1  Cwe  T  ) 

C2T  a  (MS(?.*TwtT) 

C JT  a  mti  (  <.»T* l  T  ) 

C<.r  a  rng<4.«THfc.Ti 

cst  a  rus is.* The r i 
ST  a  STN(ThET) 

s?t  a  siM(?.»rHtn 

S3T  a  S I N ( 3 . *Th£  T ) 

S4T  a  5IM4,»Th£TI 

sst  a  sims.-thet) 

R2  a  Qaa? 

P3  3  P*W2 

R4  3  P*R3 
B5  3  P«U4 
«6  3  w*P5 

PH  3  W?*H6 

RIO  3  P2*Rfl 

OEL  3  P<1)  ♦  P<2>*P*C1  ♦  P  ( 3 ) *w*S 1 

4  *  P(4)*(c.*P2-l.) 

d  ♦  P(5)«R2*C2T  ♦  P(<j)*P2*S2T 

C  ♦  P ( 7 ) * ( 3. *P  )-2.*P) *CT  ♦  P ( a ) • [ 3.*P3-?. *P ) *ST 

0  «  P(9)*P3*C3T  •  P ( 1 0 ) *P3*S3T 

E  *  P(t1  )*(<S.*P4-t>.*P2*l.) 

F  *  P  (  1  2)  *  (4.«P4-34»W2)  *C?f  ♦  P ( l 3 > * ( a. *P4-J. *P2) *S2T 

(j  4  H  (  14)  *  P  4  *  C  4  T  ♦  P(1S>*P4*S4T 

H  .  P(1*)*(1U.*P5-12.*PJ*3.*P)*CT 

I  *  P  ( 1  7)  *  ( 1  0.*R5-12.*P3*3.*W)  *ST 

J  4  P ( 1A) • (5, *P5-4,*R3 I *C3T  *  P( 19) *<S.*RS-4.*P3> *S3T 

«  •  p<20)*W5*C5T  ♦  P(21)*P‘»*',5T 

L  ♦  P<2?)*(20,*R6-3a.*P4*l2.»P2«l.) 

*  *  P<?3)*(70.*P8-140.*P6*V().*P4-?0,*R?*1.) 

w  *  P  (24)  •  (2b2.*Nlg»6304*Hj}*5A0.*R*-?l0.*W4*  J0.»H2-l .) 

*0  Ino2  s  Inox»2 

OEL  3  nHL*2.*J.l4l592t>54 
COSO  a  COS  (OEU 
SINO  s  SIN (DEL) 

CUPS  a  CUP ( I NO?- 1) 

CUP ( TnD?-1 )  3  CUWS*COSO  -  CUR( IN02) *SrND 
mo  CUP  (INC*?)  3  CURS*S INO  ♦  CUR  ( IN02)  *COSD 

PP I TF  (*4200)  RUtP 

200  FORMAT  (*P7FRNtKt-  PHASE  CORRECTION  APPLIED  WITH  NORMALIZATION* 
A  •  RAorUS  OF  *«(ilS.4  /*  COEFFICIENTS  USEO  P <  1 1 -P (2*) *  . 

d  •  ARt  CONSISTFNT  with  The  PHASE  OUE  TO  THE  NTH  TERM  BEING*// 

C  20X.24H  Ph  I  ( .3 )  3  2*P  1*P(N)*/(N)// 


0  *  Z(N>  S  OF  ( N) *  »  ]  h*  *  *F  (  T  HE  T  A )  (  rF(n>  NORMALIZEU  TO  1.  AT 
E  (1X.SG20.5)  ) 

“ETURN 

7  3  NOR  *  NRTS*NPr 
00  HO  1*1. NOB 

risr*r 

IlMlsIT-l 

CUR(TIMl)  =  S0RT<CUH<II)**2*CUW<IIRI)«*2) 

90  CUR (II)  *  0.0 
RR  I  TF  (6.300) 

300  FORMAT (//13X.*CU  PHASE  HAS  BEtN  SET  To  ZERO  IN  SUBROUTINE  ZERN*//) 
RETURN 
END 

•EUR 

TEST  7EPNIKF  AUOITIU.-4 

SSTART  Wm(.sO  .00106*  NCALL*2  •  0CAL»1S.»  NNPTSal?B* 

IB*«.  OllMXaO.O*  OORYaO.O*  AMRG£S*20.0»  nGAUSS*0.0» 

RESTRTa . TRUE . •  PLOTSsi.O.  IN*S. 

GTMTRCs.F ALSc  .  »  PHIRAO»0.0.  SEND 
ST  *  S  f  N  <  Th£  T ) 

S2T  =  SIN(?.*rHtT) 

sir  *  siN(i.*TMEn 

S4T  a  <HMft.»rHtri 
SST  *  cifs  (S.*TMET) 

«2  s  W*»2 
h>3  x  wo fc>2 
W4  a  W*B3 
WS  =  R«U4 
W6  a  H*PS 
RH  *  w?*P6 
RIO  »  WZ*RH 

nEL  »  R ( 1 )  ♦  °  I  2  > »H#C1  ♦  P(3)*R*S1 

A  .  M  (4)  *  IB. *02-1  .  ) 

d  .  u(S)*02*C2T  *  P(<j)*r2»s2T 

c  ♦  p  (  n  *(  3.*R  1-2. *R)  *CT  •  P(B)  *<3.*R1-?.*B)  *ST 

I)  .  P<9)«R3*C3T  •  P(10)*h3*SJT 

e  «  p ( n > •«*, *«♦-©. **2*1 . ) 

F  .  P  t  1  2)  •  <4.*W4-3.*H*!>  *C?t  ♦  P  (  1  1)  •  (4.*W4-3.*R2>  *S2T 

0  .  w  !  14)  0W40f4T  »  P  (  l  s  I  *R4*S4  T 

H  .  p  (  1<S)  •  (1  U.»PS-I2.*K  i*3.*H)  *CT 

i  .  p ( i 7) • ( i o.*rs-12.»r3*i.*r> *sr 

J  .  P  (  1PI  *  <S.»RS-<..»RJI  *C3T  ♦  P ( 19) * (S.*RS-4.*W3> *S3T 

K  ♦  P(2o)*WS*CST  *  P  ( 2 1  )  *><S*SST 

L  •  P<22>*(?0,*»fi-30.*R4*12.*R2-1.> 

>A  •  P  (21)  •  <  70.*RH-l*0.*R6»9().*R4-70  .*R?»  1  .  ) 

M  .  P  i24)  *  (?S2.*Wl0-630.*Hii*Sft0.*R#.-?10.»R4»  JO,*R?-l  .  ) 

60  I  NO?  *  INI)X»? 

DEL  »  DI-L»?.*3.U1SR2()S4 
COSO  *  COS(UEL) 

SINO  a  Sl'JOJfcU 
CURS  *  C'ip  (  !NO?-l ) 

CUR<  Ttvn2-1 )  a  CURS*COSl)  -  CUR  I INU2)  »S  fND 
100  CUR  (  I  NO?  )  a  CUPS*S1NP  ♦  CUR  (  INU2  )  *C('SD 
RRITF  (A, 200)  P0.p 

200  FORMAT  ( *0  RN  tUF  PHASE  CORRECTION  APPLIED  a  I Th  NORMALIZATION* 

A  •  PAnruS  OF  *,019.4  /•  COEFFICIENTS  USED  P(I)-P(2*>** 

rf  •  APt  CONStSTFNT  RITm  The  PHASE  OUt  TO  Tm*  hTh  TFRM  REING*// 

C  Z0X.?4H  PMl(J)  *  2* Pi*R(NI«/(N)/2 

0  •  Z(N)  a  BF (N) •♦ Ih*»*F ( THETA) (  RF(n>  NOR“ALIZEU  TO  1.  AT  R»l.*// 

E  UX.S(,20.S)> 
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tlfcTUON 

73  NUH  a  ►wf,3*NMT 
113  HU  f*l.NOP 
I  1*1*1 
I  I M\ »  T i-l 

cjp<n«n  *  sd»T{cuw(in*»<;*ruK(ii'*i)**?) 

HO  C'JHfln  a  il.  o 
wPITF  (Still'll 

300  FORMAT (//11X,«ru  PHASE  HAS  HFfcN  St  T  M  ZERO  IN  SUHWOUTINE  7E»N*//j 
PET'JPN 
FnO 

°e<j» 

TEST  7FPNfKF  auniTlUi* 

SSTAOT  WwLaO.AOlOb.  NCALL«Z»  0CAL»1S..  NNPTSal?H. 

nnwxao.n.  nuovao.o*  ampg£s»^o .n *  nfiAuSS*o.o, 

H£?rWT*.rwuF.  .  PL0TS»1.0.  iNaS. 

SfMTHCa.FAL'sr  .  .  »HU40«U.(1.  i£NO 
TEST  7FPNIKE  ADDITION 
SCOnTWL  IELOwsa.  SEND 

APEPTupE  Th£  PLANE  WA*F  TO  10.  CM. 
jAPT'JP  Ooi 1  Ts  1  3  ,  .  OIN=0.*  4ENO 

4C0NTPL  TFlOrt*H.  SEND 

PLOT  ThF  INITIAL  PLANE  WAVE 
4PLOT  SFnP 

Initial  plane  have 

SCONTPL  IFLOwsZ3.  SEND 

AP®L v  SPFCIEP  7EPNlKtb 

S7FPNS  P0a«.,  P(A>a.l.  P(S)=,1.  Ptbls.l.  *ENl> 

SCONTPL  rFLO»=«.  TENO 

plot  the  /FPMKto  plane  wave 

SPLCT  SFnD 

ZEhNIaEP  plane  pave 
*  iCONTWL  I FI  Ow=Z3.  SEND 

REMOVF  SPtCIEO  ZEPNIKES 

iZEPNS  P0=«,  UFMNGI3) a-. I .  Pf PNG ( A ) a- .  i  ,  PFWnG l S ) *- . 1  .  TEND 
iCONTPL  I F lOWSfl .  SEND 

PLOT  ThF  DFZEPNIwEO  PLANt  WAVE 
SPLOT  4PuP 
OEZFPNl«En  PLANE  WAVE 
SCONTPL  ICLL’waP.  AE'Nf) 

nFIUPN  TO  MAIN 
4S  f  APT  wv»L **■  l  •  »  4EN0 
«EJ» 

To  obtain  source  printouts  of  the  SOQ  code,  the  user  must  run  the  CDC 

update  program.  The  compile  file  may  be  used  as  a  source  listing  or  if  the 

user  so  desires  he  may  run  the  Fortran  compiler  on  the  code  to  obtain  a 

compiled  version  or  listing  along  with  any  desired  Fortran  compiler  options 

supported  under  the  CDC  MOS/BE  system.  The  file  output  will  contain  the 

desired  listings.  The  following  job  setup  is  include  as  a  guide: 

.Job  Card 

Account  Card 

Attach,  OLDPL,  SOQ77128,  ID» 

Update,  F. 

FTN. 
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